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© Control system for a sample preparation system. 

© There is disclosed herein a system for control- 
ling an electromechanical system comprised of a 
number of electromechanical devices (e.g., 30, 32, 
34, 36, 38, 40, etc.) such as solenoid operated 
valves, motor, relays and other devices. The control 
system is comprised of a central processing unit 
(20) and control software plus suitable interface cir- 
cuitry to convert the digital data from the central 
processing unit into suitable control signals to op- 
erate the electromechanical devices. The control 
software allows users to either select preprogram- 
^.med sequences of commands to be executed by the 
^computer or to program unique sequence at either of 
Q two levels of complexity. User access privileges may 
^defined by the system manager such that certain 
00 users may not be allowed to program their own 
^sequences, while other users may be allowed to 
^ program their own sequences only on the first level 
<Nof complexity but not the second, while a third group 
Qof users may be allowed to program on either of the 
programming levels or to run the preprogrammed 
sequence as defined by the system manager. The 
two levels of programming complexity are a high 
level and an expert level where the command set on 



the high level consists of a plurality of commands 
each of which represents a macro. A macro is a 
collection of more detailed commands from the ex- 
pert level each of which represents a single opera- 
tion to be performed or a very small group of oper- 
ations by the electromechanical devices being con- 
trolled. Collections of these commands from the 
expert level are then put together in prearranged 
sequences to define predetermined functions of the 
system which may be performed by the single high 
level command representing that macro. The com- 
mand set on the expert level is therefore comprised 
of commands which define single operation such as 
valve openings and closures or relay openings or 
closures or the turning on of a motor or the turning 
off of a motor. 
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CONTROL SYSTEM FOR A SAMPLE PREPARATION SYSTEM 



Background of the Invention 

The invention pertains to the field of sample 
preparation systems, and more particularly, to the 
field of control systems for automated sample 
preparation systems. 

In many industrial production facilities and lab- 
oratories, there is a need to assay sample chemi- 
cals being prepared, analyzed or otherwise pro- 
cessed. Such samples can come in many different 
forms. For example, they may be solid, liquid, two 
phase liquid or liquid-solid, and may or may not be 
highly viscous. Many types of assay systems re- 
quire liquid samples of known viscosity and con- 
centration. An example would be a liquid 
chromatography system. 

Obviously, there is a need for systems which 
can prepare many different types of samples for 
assay by such machines. Preferably such systems 
are automatic in the sense that after the user 
defines the type of sample preparation needed, the 
system automatically carries out this processing on 
samples until told to stop or until the sample prep- 
aration runs out of samples. 

Because of the many different types of sample 
formats and because of the many different types of 
sample preparation processes which exist for var- 
ious types of assays, there is a need for flexibility 
and programmability in a control system for an 
automated sample preparation system. The user 
must be provided the facility with which the particu- 
lar types of samples he or she intends to process 
may be prepared in a process for which the steps 
and sequence of steps are defined by the user. In 
this way the user can tailor the automatic sample 
preparation system for use in the environment pe- 
culiar to that particular user. 

Prior art automatic sample preparation systems 
exist in the form of robots. One particular type of 
robot of which- the applicants are aware is a robot 
manufactured by Zymark. These robots may be 
programmed to emulate all the movements a hu- 
man being would make in doing a sample prepara- 
tion process manually. Unfortunately, such systems 
are complicated and expensive and difficult to use 
because of the complexity of the mechanical ma- 
chinery and control computers and software need- 
ed. Thus, a need has arisen for a control system 
for a sample preparation system which is flexible/ 
programmable, easy to use, and relatively inexpen- 
sive to manufacture. 



Summary of the Invention 

In accordance with the teachings of the invent 
tion. there is provided a control system for a sam- 

s pie prepara tion system to fully automate the sys- 
tem and allow users to program their own sample 
preparation procedures or to use preprogrammed 
procedures. Further, the control system allows a 
user acting as a system manager to define the 

70 necessary sample preparation procedures for var- 
ious types of samples likely to be encountered. 
Then the system manager may lock out users 
without system manager privileges to prevent them 
from altering the procedures while allowing such 

75 users to use the procedures programmed for them 
by the system manager. 

The control system of the invention allows user 
interaction with the system at three levels. At the 
first level, users may only give the sample iden- 

20 tification (in embodiments with no bar code read- 
er), the sample weight, the user initials, the date 
and time, the lot number to run, and the method of 
sample preparation to be followed. These methods 
of sample preparation will have been programmed 

25 into nonvolatile memory before the control system 
is obtained by the user or will have been previously 
programmed in by the system manager. 

The next level of user interaction is a high level 
language level. At this level, the user has various 

oo high level sample preparation system control com- 
mands at his disposal. Such commands include fill, 
mix. isolate, flush, dilute, inject, wash. etc. Each of 
these commands represents a predetermined se- 
quence of events which will be caused by the 

35 control system to happen in the sample preparation 
system when the particular command is executed 
in the course of performing a sample preparation 
procedure. The user at this level may string a 
series of such high level commands together into a 

40 sample preparation procedure and give it a name. 
Upon selection of a high level command, the con- 
trol system would prompt the programmer for any 
necessary variables or parameters, such as solvent 
selection, volumes, flow rates, mixing times, etc. 

45 Thereafter, by identifying the particular procedure 
the user wishes to "run, the same sequences of 
events may be caused to occur in the sample 
preparation system of the invention. Some of the 
high level commands have parameters which are 

so accessible to the user and may be set to accom- 
modate the particular needs of the user. These 
parameters allow the user to control, for example, 
the amount of time a mixing step is carried out and 
the level of energy' that is input to the mixer by the 
homogenizer. 
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The key to breaking up sample preparation 
procedures into a series of standard preparation 
steps, which can be chained or re-chained together 
in any useful sequence the user needs to accom- 
plish his desired sample preparation procedure, is 
to design the hardware and software control logic 
to allow each standard preparation step and each 
programmed series od standard preparation steps 
to be completely independent of the preceding or 
following step or series of steps. For example, 
upon completion of a dilution sequence or cup 
wash cycle, the diluent or wash solvent from a prior 
dilution or rinse should not be left in the instrument 
connecting tubings or modules. If there is such 
leftover solvent etc, it may inadvertently contami- 
nate the next dilution or wash with the wrong or an 
undesired solvent If this undesired solvent could 
not be removed from ail tubings and connections 
prior to the next step or sequence of steps, the 
next step would be restricted to using a solvent 
deemed compatable with the undesired solvent and 
thereby place undesired restrictions on the next 
step. 

At the most detailed level, the control system 
according to the invention provides the user access 
to and programmability for elemental operations of 
the type that are combined into the sequences 
which make up each high level command. Such 
elemental operations control individual events in 
the system such as the opening and closing of a. 
particular valve, the turning on of the homogenizer, 
setjing of the power level of the homogenizer, etc. 
The user may program the system at this level by 
stringing names. These sequences may be thought 
of as user definable high level commands, or 
"macros." The user may string any number of 
macros together to form a procedure which may 
then be labelled and executed by referring to it by 
its name. 



Brief Description of the Drawings 

Figure 1 is block diagram of the hardware of 
the control system and the system electromechan- 
ical devices which are read and controlled by the 
control system. 

Figure 2 is a schematic diagram of a typical 
sample preparation system which may be con- 
trolled by the control system of the invention. 

Figure 3 is a schematic diagram of another 
embodiment of a sample preparation system which , 
may be controlled using the control system of the 
invention. 

Figure 4 is a flow diagram of the overall 
control flow of the control system software. 

Figure 5 is a flow diagram of the various 
routines of the control system of the invention. _ Vi 



Figure 6 is a flow diagram of the create, 
modify and delete routine of the control system of 
the invention that the allows a user to create new 
sequences of commands at either of two levels of 
5 detail and complexity. 



Detailed Description of the Preferred Embodiment 

;o Figure 1 is a block diagram of the electronics 

of the control system in accordance with the teach- 
ings of the invention. The control system is cen- 
tered around a CPU 20 which could be a micropro- 
cessor, personal computer, minicomputer, or main- 

75 frame. Included within the CPU block is RAM 
memory for storing programs and data while the 
computer is running; Mass storage of data, pro- 
grams, and other information such as data bases, 
macros, user defined parameters, user defined 

20 sample processing routines, etc., is performed by 
mass storage unit 22. This unit could be a disk 
drive, tape transport, bubble memory, or any other 
bulk storage device with sufficient access speed 
and stor age capacity for the particular application 

25 ' involved. The user controls the computer 20 
through a terminal comprised of keyboard 24 and 
any type of display 26. 

The computer 20 is coupled to the various 
operating units in the sample preparation system 

30 by bus 28. This, bus 28 is actually comprised of the 
address, data, and control signal lines of the com- 
puter 20. The bus is coupled to the ports for 
addresses, data, and control signals such as 
read/write, interrupt, ready, etc. on the various dri- 

35 vers and interfaces to the various functional ele- 
ments of the system. A more complete description 
of the sample preparation system for which the 
control system is intended to be used with is given 
in the following U.S. patent applications: 

40 "System for Preparation of Samples for Analysis" 
by Nau, Metzger, Orimm. Nohl.' serial number 
942.197, filed. 12'1 6/86 and "Sample Preparation 
Chamber with Mixer/Grinder and Sample Aliquot 
isolation" by Nau, Metzger,; Grimm, Andre, and 

45 Nohl. serial number 942,198. filed 12/1 6/86. both of 
which are hereby incorporated by reference. 

Because the sample preparation system is in- 
tended for use in applications where either the 
samples will be brought into the system in cups or 

so other containers with bar codes thereon or pumped 
into the cup through a 6-way valve, a bar code 
reader 30 is provided. This allows sample iden- 
tification data such as lot number and batch num- 
ber or other types of information pertaining to the 

55 incoming samples to be read from bar codes on 
the sample containers/This information maty then 
[ be read by the computer 20 and stored in the 
mass storage unit 22 for later correlation with the 
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test results for that group of samples. Bar code 
readers are known and systems for moving sample 
containers by bar code readers so that the bar 
codes may be read are also known. 

In the preferred embodiment, a network inter- 
face controller 32 is provided to allow other com- 
puters and units on a network in the user facility 
such as terminals In the offices of scientists to 
offices,- program the system or inquire as to the 
status of a* particular sample preparation routine. 
Further, the users may have access to the data 
which resulted from a particular sample run. For 
the network interface, this user can have the sam- 
ple data resulting from the assay of a particular lot 
of sample communicated directly into the data 
based in the other computer. 

A sample loader 34 functions to mechanically 
load samples arriving in containers. The particular 
design of the sample loader is not critical to the 
invention. It may load sample from one or more 
containers brought in by the user such as a tray of 
test tubes into the sample preparation chamber. In 
such a system, the sample from each test tube 
would be loaded into the sample preparation cham- 
ber, homogenized, diluted, and pumped through 
the assay system. At some point in the process, 
the sample would be identified either by the user 
keying in the identification data or by the bar code 
reader 30 reading the bar code on the test tube. 
The analysis data from the assay would then be 
stored in the mass storage unit 22 along with the 
corresponding identification data. The sample load- 
er would then load the sample from the next test 
tube into the sample preparation chamber, and the 
process would be completed for the sample from 
the next text tube. The design of such a sample 
loader is known and a commercially available unit 
which could be programmed to do the job would 
be the PRO/GROUP(tm) automatic assay machine 
available from Cetus Corporation in Emeryville, 
California. In alternative embodiments, the sample 
loader 34 could be any mechanical system which 
could take a cup like that used in the sample 
preparation chamber described in* the patent ap- 
plications incorporated by reference and attach it to 
the cap. Any mechanical arrangement that can load 
a copy from a tray, conveyor belt, or carousel of 
cups into mechanical, sealing engagement with the 
cap of the sample preparation chamber described 
in the patent applications incorporated by reference 
will suffice. In some embodiments, this unit may be 
omitted altogether where sample is pumped in 
from a process stream or injected from a 6-way 
valve coupled to a sample vat The design of 
suitable sample loaders which will suffice to prac- 
tice this aspect of the invention is known. 

There is also provided electronic scales 36 in 
the preferred embodiment. These provide the fa- 



cility for weighing of solid samples or samples 
which are too viscous to pump into the sample 
preparation chamber where such samples are 
placed manually in the sample preparation cham- 

s ber. The purpose of weighing such samples is to 
provide the user with an indication of the amount oi 
sample that has been placed in the sample prep- 
aration chamber. This is important because the 
samples will later be diluted with solvents or diluent 

10 to a user defined concentration. In order to do this 
properly, the weight of sample in the sample prep- 
aration chamber prior to addition of the diluent 
must be known. The electronic scales also provide 
an RS232 or parallel interface to the computer 20 

75 via the bus 28 so that the computer 20 may read 
the sample weight directly. The electronic scales 
may be eliminated in some embodiments. Without 
the electronic scales, if the user is dealing with a 
solid sample, the weight of sample placed in the 

20 sample preparation chamber must be keyed in by 
the user through the keyboard 24. A suitable elec- 
tronic scale 36 would be the Mettler AE160 avail- 
able from Mettler in Switzerland. 

A pump interface 38 provides the facility for 

25 the computer 20 to control the reversible pump 
used in the sample preparation chamber. The 
pump motor may be a stepper motor or a D.C. 
servo motor with an optical or other type of en- 
coder so that the pump interface circuit 38 can 

30 determine the position of the motor shaft at all 
times. Any type of motor with sufficient power and' 
a system to positively control the pump shaft posi- 
tion or otherwise control the exact volume pumped 
will suffice. The pump interface obviously needs to 

35 be designed to interface between the particular 
type of pump motor and pump chosen and the 
particular type of computer 20 chosen. 

Figure 2 shows one embodiment of a sample 
preparation system with which the control system 

40 of the invention may be used. In this embodiment 
of the sample preparation system, the details of the 
structure and operation of which are as described 
in 'the patent applications incorporated herein by 
reference, two manifolds 39 and 41 are used as 

45 central terminals in what amounts to a fluid switch- 
. ing multiplexer. Each manifold is coupled to various 
sources of material or various destinations in the 
system by a -plurality of remotely controllable 
valves of which valves 43 and 45 are typical. These 

so valves are typically solenoid operated or pneumati-' 
caJly operated ..under the control of the computer 
20. The purpose of the valve interface 40 in Figure 
' 1 is to electrically translate the address, data, and 
control signals on the bus 28 into the proper elec- 

55 trical or pneumatic control signals to cause the 
proper valve in the system to assume the proper 
state. Such • interface circuits are well .known, for 
.* either solenoid operated valves or pneumatically 
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operated valves. For example, in the case of sole- 
noid operated valves, a motor controller chip can 
decode the address on the bus 28 and a data word 
indicating whether the valve is to be opened or 
closed along with an active write signal. All these 5 
signals define an action desired for a particular 
valve. The address specifies which valve is to be 
operated, and the active write signal indicates when 
the computer 20 is addressing a particular valve. 
The data word defines whether the valve is to be ro 
opened or closed or which of its multiple states to 
assume in the case of a multistate valve. 

The motor controller chip then activates a par- 
ticular output signal line coupled to a solenoid 
driver such as a relay or a triac in such a manner ;5 
as to cause the desired change in the state of the 
addressed valve. 

In the case of pneumatic valves, the address, 
data and control signals are decoded, as above, 
but the activated output signal from the motor 20 
controller chip is used to control a pneumatic pres- 
sure source to either apply pneumatic pressure or 
remove it from the particular valve addressed. 

Figure 3 shows the preferred embodiment of 
the sample preparation system with which the con- 25 
trol system in accordance with the teachings of the 
invention is used. The difference between this sam- 
ple preparation system and the sample preparation 
system of Figure 2 is that the manifolds 39 and 41 
and the associated valves such as valves 43 and . 30 
45 are replaced with two rotary, multistate valves 
47 and 49. All other details of the system structure 
and operation are as described in the patent ap- 
plications incorporated by reference herein. Each 
of these valves has a central input pipe, pipes 51 35 
and 53 respectively; which is. connected to only 
one of a plural ity of output ports coupled to 
various sources of material or destinations in the 
system. A stepper motor, or D.C. servo motor with 
optical encoder is used to drive the valve to its 40 
various states. In. such an embodiments. the valve 
drivers 40 are the interface circuits needed to con- . . 
trol the stepper motors or D.C. servo motors. 

Integrated circuits for stepper motor control are 
commonly available. These circuits allow the com- 45 
puter 20 to send address and data words to the 
stepper motor controllers after enabling the chip 
with a proper chip, select signal. The address sig- 
nals indicate which of the two rotary valves is being 
addressed; and the data words indicate the desired so 
state in which the rotary valve is to be placed. : 
Typically, these integrated stepper motor control- 
lers have a command set. Typical commands , in- v 
elude commands to start and stop the controlled . 
motor, commands to control the acceleration and 55 
deceleration, profiles, to . use, commands to control 
the step number to which the controlled motor's 
shaft is to be moved, and- commands to read the - 



particular step at which the controlled motor's shaft 
is currently resident. Such chips may be used to 
control the stepper motors used to drive the rotary 
valves 47 and 49. In the preferred embodiment of 
the sample preparation system, these rotary valves 
47 and 49 are manufactured by Hamilton Company 
of Reno, Nevada. 

A typical D.C. servo motor which could be 
used to drive the rotary valves 47 and 49 is manu- 
factured by. Galil Motion Control, Inc. of Mountain 
View, California under the model designation DMC 
100. These servo motors have optical encoders 
which are used to provide feedback as to the shaft 
position to an interface board for the Galil motor 
plus motor controller chips for the other remotely 
controlled valves in the system. 

The RS232 port interface 42 may be a simple 
commercially available UART. The analyzer 48 
may be coupled to the computer 20 through the 
RS232 interface 42, or the network interface 32. 

The mixer 55 in Figures 1 and 2 may be an 
ultrasonic mixer such as is made by Sonic and 
Materials of Danbury, Connecticut under the trade- 
mark VIBRA CELL In alternative embodiments, a 
high speed homogenizer could be used such as 
are made by Brinkman (shroud with a high speed 
rotating shaft therein rotating at 28.000 RPM, there- 
by creating a high shear in the liquid and disinte- 
grating particles therein). These units come with 
their own interfaces which may be used , for the. 
mixer interface* 44. The basic control functions 
needed to control the mixer are the. time of mixing 
and the power level which controls the amount of 
turbulence generated in the liquid. The mixer inter- 
face will be necessary electronics to interface with 
the mixer control circuit for the selected mixer. The 
details of how to interface the computer 20. to the 
interface circuits that come with the mixers will be 
apparent to those skilled , in the art. A good refer- 
ence for interfacing computers such as the com- 
puter 20 to control external instrumentalities is 
Libes and Garetz, Interfac ing S-100/IEEE:696 
Microcomputers. . (Osborne. McGraw. Hill 1981) 
which is hereby incorporated by reference. An aux- 
iliary interface:46 is provided to allow the computer 
20 to control external instrumentalities such as 
valves, solenoids, etc. which are outside the sam- 
ple preparation system. Typically, this interface will 
be digital, programmable ports such as are com- 
monly available in integrated circuit form where the 
. characteristics of the ports may be set by the user. 

Figure 4 is a high level, functional diagram of 
the control program in the computer 20; which 
allows users to program and run their own, se- 
quences of events to be performed in the sample 
preparation system under control by the control . 
system of the invention. The control program runs 
a the user- defined sequences by, generating .the. 



5 



9 



0 275 826 



10 



proper control signals to cause the desired se- 
quence of events to occur in said sample prepara- 
tion system. 

At power up in some embodiments, trie system 
will perform a self test to verify the integrity of the 
system prior to performing any operations. This is 
symbolized by block 50. Next, the system displays 
a user identification request/sample identification 
request screen as symbolized by block 52 
(hereafter references to blocks will be understood 
to mean reference to those source code computer 
instructions organized as routines and subroutines 
in the control program which perform the function 
indicated in the block referred to). The purpose of 
block 52 is to supply query fields on the terminal 
or display 26 for the user to respond to by filling in 
the requested data via the keyboard 24. The re- 
quested data is to identify the user, to give various 
data items regarding the sample, to give the date 
and the time and to identify the sequence the user 
desires to run. The data items regarding the sam- 
ple to be filled in may include the sample ID, the 
sample weight, and the lot number from which the 
sample came. The user identification number is 
used by the control system to determine the ac- 
cess privileges which the user has. 

The control system has three levels of access. 
At the simple level, the user may only run se- 
quences that have been previously programmed by 
the system manager. At the high level, users hav- 
ing access privileges at this level may program 
their own sequences of events using commands 
from a high level language command set These 
commands represent predetermined building block 
functions which are necessary to perform sample 
preparation. Such building block functions include: 
mix, isolate known sample volume, flush the re- 
maining liquid out of the sample preparation cham- 
ber, release the isolated sample volume, dilute the 
sample volume with a user defined volume of a 
user identified solvent, pump the diluted sample to 
the analyzer, etc. At the expert level, users having 
access to this level may program their own „ 
"macros" using system commands at a more de- 
tailed level than the high level commands identified 
above. These more detailed commands allow the 
user to control the system at a finer level of resolu- 
tion. For example, a typical command may be 
"open valve #1 " or "rotate multiport valve #2 to 
state #3." Each of the high level commands is 
comprised of a predetermined sequence of expert 
level commands. 

The identification data entered by the user in 
block 52 via the keyboard 24 is stored on the mass 
storage device 22 in block 54. Next the system, in 
block 56, determines the access privileges of the 
user by comparing the user ID to the list of ID • 
numbers supplied by the system manager for each 



level of access. 

Block 58 represents the step of displaying an 
option menu by which the user, by selecting an 
option, may express a request regarding what the 
5 user wishes the system to do or what the user 
desires to do with the system. Typical menu op^ 
tions include: start, status, method, directory, re- 
port, load, print, system, control, defaults, functions, 
and options. The meaning of these options will be 

70 explained more below. 

After the user has entered his or her request 
via the keyboard 24, the control system verifies 
that the user has the access privilege necessary to 
perform the function requested in block 60. If so, 

is the control system branches to the routine which 
performs the desired function or provides the fa- 
cility requested by the user in block 62. If the user 
does not have the required access privilege, a 
message to that effect is displayed in block 64, and 

20 processing proceeds to block 58. 

Referring to Figure 5 there shown a .flow chart 
of the various routines which are available for se- 
lection by the user in Step 58 of Figure 4. The first 
routine, symbolized by block 64, is a routine which 

25 allows the user to create, modify, or delete an 
operation sequence. An operation sequence is a 
collection of commands which are executed by the 
central processing unit in order to generate control 
signals to control the electromechanical devices in 

30 the system. The control signals cause them -to- 
perform a physical sequence of events to process' 
a sample where the sequence is defined by the" 
particular sequence of commands in the program. 
The routine of block 64 allows the user to program 

as his own sequences of commands at either of two 
levels of complexity. At a first level of complexity, 
the user may have access to a set of commands 
each of which represents a specified function that 
the system is capable of performing and each of 

40 which causes a predetermined sequence of events 
to occur in the proper order to cause the physical 
event symbolized by that command. The second 
level of complexity allows the user to have access 
to a set of commands which are very detailed. 

45 These commands each represent a single action or 
a very small group of actions that one or a very 
small group of electromechanical devices performs. 
Essentially, the commands at this second level are- 
the component commands which are grouped to- 

so gether in a predetermined sequence to implement-^ 
one of the commands on the first level. Essentially 
then, the commands on the first level are macros 
which are collections of commands on the second 
level but arranged in a predetermined sequence for 

55 each particular command on the first level. 

Block 66 is a routine which allows the user to 
print a hard copy of a sequence which has been • 
programmed by the user. 
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Block 68 is a routine which allows the user to 
load a predetermined sequence, i.e., a method of 
sample preparation which has been preprogram- 
med by the system manager. The system manager 
is a user which has access to all functions of the 
system. That is, the system manager can define 
the access privileges of all the other users on the 
system, and he may program preprogrammed se- 
quences which are available for certain users who 
are not allowed to program their own sequences. 
Block 68 is the routine which the user calls when 
one of these preprogrammed sequences is to be 
loaded. 

Block 70 is a routine which allows the user to 
print a directory of all the methods or sequences 
which are stored in the system and available for 
execution. Block 72 represents a routine which 
allows the user to start the selected sample prep- 
aration routine and which causes the CPU to begin 
generating the control signals which cause the 
physical actions to occur. 

Block 74 represents a routine which displays 
the system status. Block 76 is a routine which 
allows the user to print the system status which is 
displayed in the routine of Block 74. 

Block 78 is a routine which allows the user to 
change the system default parameters. Typically, 
each command on either the first or second pro- 
gramming level will have parameters or arguments 
associated therewith. These arguments are variable 
values which define the specific manner in which 
the command is to be performed. For example, a 
mix command may have as an argument the power 
level at which the mix is to be performed, the time 
duration of the mix, and the RPM that the mixer is 
to use. 

The routine represented by block 80 allows the 
user to have access to the various valve and relay 
controls such that the user may open certain valves 
or close certain relays manually by causing the 
CPU to generate the proper command to cause the 
proper operation of the valve, relay or other elec- 
tromechanical device. 

Block 82 represents a routine which allows the 
system manager to create new system functions. 

Block 84 is a routine which allows the user to 
print a report. Such reports may consist of reports 
of user activity, the sequences which have been 
run, the volume of activity for a particular se- 
quence, and so on. Block 86 is a routine which 
allows the user to change the print parameters. 
This routine allows the format of the report to be 
set such as margins, spacing, headers, and other 
types of formatting commands common to 
database report routines. 

Block 88 is a routine which displays for the 
user the system options which have been elected 
and which are operable. 



Block 90 is a routine which allows the user to 
use the print mode of the system for various func- 
tions. 

Block 92 is a routine which allows the system 

5 manager access to certain system functions. 

Referring to Figure 6 there is shown a more 
detailed flow diagram of the create, modify and 
delete routine of block 67 in Figure 5. The first step 
when the user elects to program his own sequence 

w is to inquire whether the user wishes to program on 
the first level or on the second level noted above. 
- The first level will be called the high level for 
purposes here, and this level will provide the user 
access to the macro commands. The second level 

75 will be called the expert level and grants the user 
access to the detailed commands which essentially 
allow the user to define each valve opening and 
closing and each operation of each motor or other 
electromechanical device individually. The levels 

20 are named the high level and the expert level for 
purposes of indicating the relative amounts of skill 
needed to program on these levels. Programming 
at the high level is similar to calling subroutines or 
macros on any computer. Programming on the 

25 * expert level is similar to programming in source 
code and requires a some programming skill and a 
great deal of knowledge regarding the hardware 
aspects of the system being programmed. 

The process of determining which level the 

30 user wishes to have access .to is symbolized by 
step 94. This step also determines the user's ac-. 
cess privilege by checking the user's identification 
code and comparing it to a table or other such 
database defined by the system manager which 

35 indicates which users have access to the high level 
command set and which users have access to the 
expert level programming command set. If the user 
elects to program at the high level, the next step is 
symbolized by block 100. In this step, the user is 

40 prompted for a name for the sequence which he is 
about to program. After the sequence has been 
named, step 102 is performed wherein the user 
selects the first high level command which is to be 
executed in the sequence. In some embodiments, 

45 the list of high level commands from which the 
user may choose may be displayed and the user 
may simply choose a command by positioning the 
cursor on the proper command and pressing a 
select key. In other embodiments, the user may be 

so required to know the high level commands and 
select the particular command desired by an acro- 
nym. 

As noted above, most commands have certain 
parameters or arguments. Step 104 represents the 
55 process of prompting the user for parameter values 
for the command selected in step 102. Each com- 
. mand will have default parameters which are set by 
the user in step 78 of Figure 5. If the user wishes 
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to use the default parameters, he need do nothing 
in step 104. If however, the user wishes to define 
the specific manner in which the particular com- 
mand is to be executed, then the parameters for 
that command may be adjusted in step 104. s 

After step 104 is performed, the control soft- 
ware causes the central processing unit to prompt 
the user to determine if the command just defined 
is the last command in the sequence. This step is 
symbolized by block 106 in Figure 6. If the user is 10 
done picking commands, the processing proceeds 
to step 108 where the method is stored in perma- 
nent storage such as on a floppy disk or hard disk. 
Processing then returns to the main menu symbol- 
ized by block 58 in Figure 4. /5 

If the user is not finished programming, then 
processing proceeds from block 106 to block 110 
where the user is prompted to select the next high 
level command in the sequence. Processing then 
proceeds to block 112 where the parameters for 20 
the command selected in block 110 are displayed 
and the user is prompted for new values for these 
parameters. If the user responds with new param- 
eters, these are stored with the command as a 
permanent part of the sequence being pro- 25 
grammed. After step 112 is performed, step 114 is 
performed to again to test for completion of pro- 
gramming. Step 114 represents the process of 
prompting the user to determine if the user is done 
programming. If he is, then processing continues at 30 
step 108 as described above to store the method. 
If the user is not done programming as determined 
in step 114, then processing returns to step 110 
where the user is prompted to select the next 
command in the sequence. 35 

Returning again for a moment to step 94 in 
Figure 6, if the user is determined to have no 
access to either the high level or expert level 
programming command sets, then step 94 vectors 
processing to a step 96 wherein a "no access 40 
privilege for selected level" message is displayed 
on the terminal. Thereafter, in step 98. processing 
is returned to the main menu of step 58 in Figure 
4. 

If the user selects the expert level for program- 45 
ming, a similar sequence of events occurs starting 
with step 116. There the user is prompted to name * 
the sequence he is about to define. The next step, 
118, prompts the user to select the first expert 
level command to be executed in the sequence. so 
Then, in step 120, the user is prompted to select 
new parameters for the expert level command se- 
lected in step 118. Again, the expert level com- 
mands also have default values which may be 
altered by the user in step 120. Step 122 repre- 55 
sents a test to determine if programming has been 
completed. If it has, then step 108 is performed as 
described above. If programming is not completed, 



processing proceeds to step 1 24. There the user is 
prompted to select the next expert level command 
and define the parameters for that command. 

Step 1 26 represents a test to determine wheth- 
er the user is done programming. If he is, then step 
108 is performed and control is returned to the 
main menu. If the user is not done programming, 
then control returns to step 124 where the user is 
prompted to select the next expert level command. 

Appendix A is a listing of the source code for 
the preferred embodiment of the invention. This 
source code runs on an IBM PC running the Forth 
and DOS programs. 

Although the invention has been described in 
terms of the preferred and alternative embodiments 
detailed herein, those skilled in the art will appre- 
ciate that many modifications may be made. All 
such modifications are . intended to be included 
within the scope of the claims appended hereto. 



Claims 

1. A control system for an apparatus having a 
plurality of electromechanical devices controlled by 
said control system, said control system having a 
CPU (20) wherein the improvement comprises soft- 
ware means (Figures 4, 5, 6) for allowing a user to 
cause said CPU to run any of a plurality of fixed 
command sequences or to program one or more 
new sequences using commands at any of a plural- 
ity of complexity levels where at least one com- 
plexity level is populated by commands which are 
macro commands in the sense that each is a 
concatenations of commands from at least one 
other of said complexity levels. 

2. The apparatus of claim 1 wherein said soft- 
ware means includes means (Figure 6) for allowing 
a user to program sequences at a first level with 
macro commands each of which causes a pre- 
determined sequence of events to be performed by 
said electromechanical devices. 

3. The apparatus of claim 2 wherein said soft- 
ware means' is also for allowing said user to modify 
the parameters of each command from default pa- 
rameters where said parameters characterize some 
physical characteristic of the sequence of physical 
events that will be caused by execution of said 
command by said CPU. 

4. The apparatus of claim 3 wherein said c; soft- 
ware means includes means for allowing said user 
to program a new sequence of commands to cause 
said electromechanical devices to perform at least 
one physical event where the commands available 
to the user are more primitive than the commands 
on said first level in the sense that each command 
represents a predetermined sequence of events 



8 



0 275 826 



16 



which is less complex than the predetermined se- 
quences of events caused by the commands at 
said first level. 

5. The apparatus of claim 4 wherein said soft- 
ware means includes means for allowing each user 
to be identified by a code and further includes 
means for allowing at least .one user to define the 
access privileges of ail the other users and encode 
this access privilege data such that said software 
means can determine from said user identification 
code the access privileges each said user has. 

6. The apparatus of claim 5 wherein said soft- 
ware means includes means to allow a first group 
of users to have access to and to run only said, 
fixed sequences of commands and to allow a sec- 
ond group of users to run any of said fixed se- 
quences of commands or to program a new se- 
quence using only the commands at said first level 
and to allow a third group of users the ability to 
program a new sequence using commands at ei- 
ther of said first level or said second level or to run 
any of said fixed sequences. 

7. A control system for an apparatus having a 
plurality of electromechanical devices comprising: 

computer means for allowing a user to run 
fixed sequences of commands or sequences of 
commands the user programs himself and for gen- 
erating control signals during the execution of 
these sequences which are coupled to said electro- 
mechanical devices and which cause these devices 
to perform the sequence , of physical operations 
defined by the sequence being run; and 

control means for said computer means for 
allowing said user to select and run any of one or 
more fixed sequences of operations or to program 
a new sequence at either of two levels of complex- 
ity. 

8. The control system of claim 7 wherein said 
control means includes means to allow a user to 
program a new sequence using commands on a 
first level each of which represents a specific func- 
tion of the system involving one or more physical . 
actions of one or more of said electromechanical 
devices or to program a new sequence at. a second 
level using commands each of which represents a 
single operation by a single electromechanical de- 
vice. 

9. The control system of claim 7 wherein said 
control means includes means to program a new 
sequence of operations using commands at either 
of a first level or commands at a second level 
wherein the commands at said first level each 
represent one physical operation by one electro- 
mechanical device and wherein the commands at 
said second level each represent a predetermined 
sequence of said commands at said first level. 



1 0. The control system of claim 9 wherein said 
control means includes means to block access by 
certain users to commands for programming at 
either said first or second levels or both. 

s 
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• APPENDIX A 

SOFTWARE LISTING INDEX 

SSX 1 "?*?' TIME ' 351 330 321 324 327 333 348 402 403 
ERRORS S< FUNCTIONS 

WINDOWS 354 357 360 363 

FILE SYSTEM 411 414 417 42 0 423 

SCREEN SUPPORT 378 381 384 387 390 405 

NORMAL SCREENS 393 399 429 

HELP *< HELP SCREENS 426 

EDITOR S< EDIT SCREEN 336 339 342 

SNAPSHOT 366 

TASK SUPPORT 43Q 44 j 444 

STATUS TASK 447 45,3 

DEVICE STATUS DISPLAY 462 465 468 471 474 477 

STATUS BACKGROUND 453 456 459 

CONTROL TASK 501 504 507 510 

METHOD EXECUTION 513 

DEVICE CONTROL 528 531 534 537 546 549 552 555 558 

CONFIG & TABLES 561 621 

HELP SCREENS (DATA) 630 633 636 639 
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This block loads the entire Satple Preparation Systea. 
It loads all other load blocks that like up the systea, • . 
A word called SP (or sp) Hill cause this block to be loaded. 

PREP is the eain entry point to the systea, so after a power up, 
just tvpe *SP PREP" to load and run the systei. Note that 

• SP Hill perfera an 6 DRIVE before loading, so you don't have 
to switch drives yourself. 



8 \ SAMPLE PREPARATION SYSTEM LOAD BLOCK 



1 EMPTY 
2 

3 88 LOAD 

4 33 LOAD 

5 45 LOAD 

6 98 LGAD 

7 117 LOAD 

8 248 LOAD 

9 126 LOAD 
18 188 LOAO 
11 57 LOAD 



12 81 

13 89 

14 37 
15 



LOAD 
LOAD 
LOAD 



TRUE 1 



FALSE 8 



KULL 8 



DECIMAL 



\ function key execution 

\ screen windows 

\ key functions 

\ file systea 

\ task support 
- \ Configuration tables 

\ status task 

\ control task 

\ screens 

\ keycode tables. 
Join this with PREP coscaod load 

\ aain coaaand interpreter 
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I 
2 
3 
4 
5 
6 
7 
8 
9 
18 
11 
12 
13 
14 
15 



3S3 



32 



1 
2 

3 
4 
5 
& 
7 
8 
9 
18 
11 
12 
13 
14 
15 



«•» + * **** * * * mm mm 
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8 \ TEST 




5 
6 
7 
8 
9 
IB 
U 
12 
13 
14 
15 



32: 



The Status task updates the status header when, things change. 

The Control task is responsible for executing the user's oethod 
to control the saaple preparation hardware, it is a 
background type case, nhicn-aeans that it can not use any 
printing «or»1s. Error messages lust be passed back to the 
User task lor display. 



8 ( Sasple Prep Task definitions ) 
1 



2 388 TERrUnAL PSTATUS 

3 PSTATUS CONSTRUCT 
4 

5 265a TERKIKAL CONTROL 
i COKTROL CONSTRUCT 
7 

B : HALT ACTIVATE STOP ; 
9 

IB V 63B7 PSTATUS 'TYPE KIS ! 

11 \ 'TAB 3 PSTATUS 'TAB HIS • 

12 

13 

14 

15 
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8 

1 32 CONTACT RBUFF-SIZE \ itKOTE: ft MUST be a power of 2 

2 CREATE RBUFF KBUFF-SIZE ALLOT RBUFF RBUFF-SIZE ERASE 

3 VARIABLE HRPTR VARIABLE RCDUKT 
4 

5 CREATE SBUFF h ALLOT 

6 VARIABLE SBCTR VARIABLE SBPTR 
7 

6 1843200. 1 16 W 2C0KSTAST DIVIDEND 
9 HEX : SET-HAMILTCM-BAUD 
18 DIVIDEND ROT h7 DUP 

11 83 3FB OUTPUT 3F8 OUTPUT 

12 X 3F9 OUTPUT 3 3FB OUTPUT 

13 3 3F9 OUTPUT SB 3FC OUTPUT 

H 3FB IKPUT ORCP 3FA INPUT DROP ; DECIMAL 
15 9680 SET-HAS1ILT0H-BAUD FORGET DIVIDEND 



330 



9 



8 \ Saeple Prep preco»piie load block 

2 ; 4P s +0R1VE ? \ Allows loading other local blocks 



\ Pre coepile preliiinaries and general tcols 
\ Clock and calander words for RP5C15 cWp 
\ Set Forth' s tiie and date 
\ Control and status task definitions 
\ Interrupt h buffers for Hamilton valves 
\ Interrupt driven keyboard input buffer 
\ Error handling basics 



This is the title that shows up in .DRIVES 



4 IB +P LOAD 

5 \ 13 *P LOAD 

6 \ 12 *P U3A& 

7 I ♦? LOAD 
S 2 *P 4 *P THRU 
9 5 *P 8 *P TH?;U 

IS 27 +P LOfiO 
11 
12 
13 
14 

15 \ Sasole Preparation Systes Source Code 
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SKADGtf far configurations 



10 



SP loads the satpie prep software. Type PREP to run. 



(f ) run tite code for I", returns address of counted string, 
f coapiles an inline string; will return it's address. 
INVERT returns the ones coipletent of a value. 
This is the title that shows up in .DRIVES 



8 \ Precoipiie prelioinaries and general tools 



1 
2 
3 
4 
Z 
t 
7 
E 
9 
12 
11 
12 
13 
14 



: F2 1 SCR ♦! SCR 3 LIST { \ Useful functions; 

: Fl -1 SCR ♦! SCR < LIST ; 

: F3 HEX KEI B ; 

: F4 DECIMAL CECIKAL 1 ? 

HEX 1F1F WIDTH ! 0EC1KAL \ 32 Char definitions 

: SP 8 DRIVE 36 LOAD 5 \ Saapie Prep Syste* load cowand 
: ASCIK 32 U0R3 1+ C3 j \ Convert next char to ascii case 
: BIHAF.Y 2 EASE ! ; 
: (fl 1 7R3 ; 

: f ■ CCXPILE If) 34 STRIKS ; IKBEDIATE 
: IK VERT In-ft') NEGATE i- ; 
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1 1 



a 

1 

2 
3 
4 

5 : 

6 

7 

B 

9 

IB 
11 
12 
13 
14 
15 



1 

2 CODE SENtvSER HEX 

3 3F6 I 2 HOV SBPTR V KDV 

4 K ) 8 HOV (21 OUT SBPTR IHC KAIT JKP 

r 

6 VARIABLE CALLft B CALLER ! 

7 ASSEMBLER BESIK 8 PUSH 2 PUSH M PUSH OS FUSK3 

8 ZERO ( 8 KOV 0 OS LSS 

9 3FA I 2 KOV (2J IN 3FB I 2 MOV < IB 0 TEST 8= 
16 IF ( output interrupt) 

U IS SE6 SBCTR DEC 8= 

12 IF IS SE6 CALLER N KOV HAKE I V ) KOV 

13 aSE IS SES SBPTR I XCHS LODS B 

14 IS SE6 SBPTR I ICHG (2) OUT 

15 THEN 



4 

0 

1 HEX 

2 ELSE ( input interrupt) (2) IN 

3 IS SEB KRPTR K KOV 

4 IS SE6 8 KBUFF K) KOV B 

5 , K INC. EBUFF-5IZE 1- i H AND 

6 IS SEB K nRPTR KOV 

7 IS SEB ■ RCOUNT INC THEN 

8 as pops m pop 2 pop e pop 

9 OC INTERRUPT 
16 

11 CECIKAL 

12 

13 

14 

15 



a 
i 

2 CREATE K63UFF 32 ALLOT 

3 VARIABLE KBRPTR 

4 VARIABLE KBHPTR 
5 

6 CODE /KBBUFF HEI 

7 IS SES (CBMPTR 1 KOV 1 INC IF t 1 AND 

8 IS SEB KBRPTR 1 CKP 8= NOT 

? IF I N KOV IS SEB 6 KBBUFF K) KOV B 
18 IS SEB 1 KBKPTR HOV 

11 THEN RET 
12 
13 
14 
15 
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32S 



I WW 
CMP 



9 

1 CODE spascii HEI 

2 I 8 WW 7F 1 8 AND 

3 IS SEG SHIFT 8 ftOD 8 

4 8 « nOV IS SEB KEYS I- M 

5 8 2 KOV 28 IB 2 OR 61 IB 2 

6 IF 7B IB 2 CKP 0< 

7 IF " IS SES LOCK 8 XCR 8 THEN 

8 THEK 88 I I AND 6= NOT 

9 IF Z G OR 8= IF IS SES 
18 ELSE 8 8 OR B= NOT 

11 IF 08 IB 9 CHP 8= KOT 

12 IF IS SEG 9 /K8BUFF 

13 IS SEG 28 IB LOCK XOR 

14 ELSE IS SEB 53 IB SHIFT KOV 

15 THEK THEK RET 



8< KOT 



8 IB SHIFT KOV THEN 



(HP THEK 



1 

L 

3 
4 
5 
6 
7 
8 
9 

18 
U 
12 
13 
14 
15 



: ASSEMBLER BEB1H 



8 FUSH 
IS SEG 



1 PUSH 



HEX 
2 FUSH 



W PUSH 



8380 I OPERATOR 5 8A * TEST 0( IF 



. IS SEG -AKE I OPERATOR 3 KOV THEK 
48 IK SI KOV IS SEB 'KEY STA 9 

86 IB 8 GR 61 OUT 80 IB 0 XOR 61 GUT 
46 IB 1 CKP 8= IF ( Int 17 ) 87CD , THEN 
* spascii CALL 
2 POP i POP 8 POP 



61 IK 
IS SEG 
IS SES 
K POP 



09 INTERRUPT DECIKA 



?29 



e 



SsAple Prep Softer* £«KUfinit5tior: 



0 
1 

2 COOE (BKEY?) 

3 KBRPTR 6 KOV 
4 

5 : BKEY? 

6 PAUSE 
7 

8 HEX 

9 : (BUY) 
18 BE6IK 

11 KBRPTR 

12 DECIMAL 
13 

14 » (BKEY I 2- • (KEY) ! 

15 9 EXIT 2- ' (KEY) 2* ! 



KBKPTR 8 SUB 8 PUSH NEXT 



(BKEY?) 



BKEY? UNTIL 

3 !♦ IF AND DUP KBBUFF ♦ C9 



SHAP KBRPTR 
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( Sdtple Prep Task definitions ) 

388 TERMINAL PSTATUS 
PSTATUS CONSTRUCT 

2888 TERniHAL CQfJTROL 
CGKTROL CONSTRUCT 

: HALT ACTIVATE STOP ; 

V 63B7 PSTATUS 'TYPE HIS ! 
^ 'TAB 3 PSTATUS 'TAB HIS ! 
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KX-tJSB and fiX-LSB contain the numbers for the relays that 
v are used to control the fixing power. 

«>.-rili t-jnUins the nudfcer of the relay that turns the 
tixer on or off. 

1/4 is used to set KX-rlSB to 8 and KX-LSB to 8. 
1/2 is used tc set MH1SB to 8 and KX-LSB to I. 
3/4 is used to set KI-KSB to 1 and MX-LSB to 8. 
FULL is used to set HX-KS3 to 1 and KX-LSB to 1. 



8 \ finer operations - constants, load block 



1 
2 
3 
< 
5 
6 
7 
B 
9 

18 
11 
12 
13 
14 
IS 



18 CONSTANT HX-KSB 
1? CONSTANT KI-LSB 
2* CONSTANT MX -SLY 

KHX mZ . CONSTANT 1/4 

BOei CONSTANT 1/2 

8188 CONSTANT 3/4 

8181 CONSTANT FULL DECIMAL 

235 236 THRU \ Rest of sixer operations 
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SET-PKP.-BIT turns one of the power "control relays on or 
off as needed. 

MIX-CYCLE turns the eixer on and off for one cosplete duty 
cycle. If the duty percentage is 183. then the eixer 
is left on. 



fl \ Kixer operations - basics 



1 

2 
t 

4 

5 
6 
7 
6 
9 

18 
11 
12 
13 
14 
15 



: SET-PXR-BIT ( on/off rlyf - 1 
SWAP 255 AND 

IF RELAY (ON) ELSE RELAY (OFF! THEN ; 

: NIX-CYCLE { n - ) 
KXBDTY < 18 I 

KX-tiLY RELAY (OH) DUF DELAY 
SNAP - ?DUP 
IF NX-PLY RELAY (OFF) DELAY THEN ; 
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XDUTY detenines the duty cycle percentage for the fixing 
operation. 

POKER detenines the power setting of the eixer. 

SECONDS and SECOND detersine the aixer's duration of 
operation. 

NIX activates the tiier using the current parateters found 
in the tixer variables HXDUTY, KXPHR, and HXTIME. 



8 
1 
2 
3 
4 
5 
6 
7 
3 
7 

16 
11 
12 
13 
14 
15 



\ Hirer operations 
XDUTY ( n - ) 
KXDUTY ! : 



top level operations 



POWER 
KXFKfi 



( n - ) 



SECONDS 
KXTIKE ! 



( n - ) 



SECOND SECONDS 



MX ( - ) 
I NXBUSY ! 

KXPHR 9 OUT >< MX-HSB SET-PKR-6IT HI-LS6 SET-PKR-BIT 
KXTIKE 9 e DO MIX-CYCLE LOOP KX-RLY RELAY (GFF) 
MI-MSB RELAY <0FF) W-LSB RELAY (OFF) 
9 fiXBUSY ! B; 
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These are the top level cottands for the hatilton rotary valve- 
controller. RVAVLE selects a current valve as in the phrase 
3 RVALVE. POSITION selects a valve position corresponding 
to the position nutoers that appear on the top of the valve 
asseibly, and sends the valve to that position. PORT allows 
the user to use convention! nutbers for valve position* 
r.itely -1- for up, -2- fsr right, -3- for down, and -4-' for 
left. The following are examples of usage: 

1 RVALVE 3 PGRT = l KVnLVE 7 POSITION 

2 RVALVE 4 PORT = 2 F.VhLVE IS POSITION 



6 

7 

8 

9 
10 
11 
12 
13 
14 : 
13 



\ Hatilton valves: valve driving words 

RVALVE { valve-l - ) 
RV-t ! ; 

PGSITION ( Hatilton-l-pos - ) >ft 
C HEX ] 38 MJSO-PAR RV-I * 30 
i RV-0IRECT1QK >EVEN-PAR I 38 
0 >EVEN-PAR 5 HAMILTON 
R) RV-STAT C! 
C DECIMAL ] 2288 MS 
B ECHO? 11 ECHO? OP. NOT 
ABORT" Hatilton Error' B; 

PORT ( norsal-t-pos - ) 
I- 3 t If POSITION ; 



>EVEN-PAR 

>evek-par 
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INIT-HfiiKQKK is 
controller. 



:ailed on powerup to initialize the hatilton 



INIT-HAMILTQN initializes cotaunication with the controller 
and puts the valves into their default positions. 



8 \ Hatilton valves: initialization 

1 : INIT-HAtt-COKM 

2 C HEX 1 30 >OD0-PAR 38 >EVEH-PAR 0 >EVEN-PAR 

3 3 HAMILTON 

4 C DECIMAL ] 433 MS 3 ECHO? ? ECHO? OR HOT 

5 ABORT' Hatilton poxer error - 

i C HEX 3 38 >QO0-PAR 4? >EYEH-PAR 0 >EVEK-?AR 

7 3 HAMILTON 

8 C BECIiiAL ] 238 MS 6 ECHO? NOT 

? ABORT* Hatilton init error - ; DECIMAL 
18 : IHIT_HAMILTQN ( - ) 

U 583 MS IKIT-HAH-CQMM 

12 5 1 00 

13 I RVALVE RV-DEFfiULTS I I- + 7DUP 

14 IF PORT 2683 MS THEH 

15 LOOP : 
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0 

1 

2 
3 
4 
5 
6 
7 
8 
? 
10 
11 
12 
13 
14 
15 



>SERIAL sends a single character to the controller. Hate 
that this send is done directly to the active serial 
port that is being used by task REKOTE for character 
collection. This is done so that REKQTE can continue 
responding to receive interrupts without any interference. 

CGittmnD! stores the chacaters for the coaiand in SBUFF. 

KmtiLTDH sends a coecand to the controller. 



8 

1 
2 
Z 
* 

s 

6 
7 
6 
9 

16 
11 
12 
13 
14 
15 



\ Hamilton valves: co.wand output wrds 

CQittfAND! ( d c2 ... cn n • n ) DUP >R 
SBUFF + f- SBUFF SWAP. 00 
• ! C! 

-I +LC0P R> ; . 

HAMILTON *! cl c2 ... cn n - ) 
COttJIAJnD! SBCTR ! SBUFF SBPTR ! 

: CALLER BET RKJFF-CLEAR SEM>SER 
SB HS CALLER RELEASE ; 



550 



229 



9 

IB 
11. 
12 
13 
14 
IS 
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SV-1 contains the current valve nuaber 



B \ Haailton valves: valve variables and utility words 

-.i.-'i.. .. vc r- ; ^v,:j ! • ...... 

2 VARIABLE RV-I . ; : \" %: 

RV-STAT-TABLE contains pairs of status variables ( old and new ) j\ . . .. .1*7" ' : 



the four valves 

RV-STAT returns the adress of the new status variable for the 
currently selected valve I RV-I J 

RV-QIRECTIGN takes a position nueber and returns returns a 
direction character ( ♦ or - ) for the Hamilton cwsaod 
string, the valve will rotate either one position counter 
clockwise or one or two positions clockwise. The first 
rotation of the valve is always clockwise. 



4 : KV-STAT ( - stat-bvte-addr ) >.w,.. . 

5 RV-I 3 1- 21 RV-STAT-TBL ♦ " j ' 

t. . 

7 HEX : RV-OIRECTIOH ( pos - di recti on-character I 

6 . RV-STAT Ca - 

9 .v. DUP -3 ■ SKAP 9 = GR 

10 "■ . IF .2D 

11 ELSE 2B 

12 THEN ; DECIMAL 
13 

14 
15 



8 \ Hamilton valves: basics and load block 
This code is used to «anipulate the parity of characters that" 1 

are send to and received fro* the Hatilton controller, the 2 VARIABLE RDPTR 
couunication protocol for the device requires that the 3 • 

•dressing character be send as an odd parity, while ell other 4 CODE ^EVEN-PAR ( c - even-parity-c 1 HEX 

5 9 PQP 0 0 AND 8 

6 78 ( JPO, ODD-PAR?) 

7 if ae tB a ior 

8 THEN 0 PUSH 

9 NEXT FORTH 

IB 2 >0DD-PAR ( c - odd-par it y-c ) 
11 KVEH-PAR 80 XQR ; DECMAl 
12 
13 

14 226 232 THRU \ Rest of Haeilton valve wards 
15 



characters iust be sent as even parity characters. The 
alternate nay of tabulating the parity by prograiting the 
UART is not practical for reasons of speed and synchro- 
nization. 
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R3UFF is a wrap around receiving buffer, whose length aay be 
•odified through changing RBUFF-SIZE. This buffer is filled 
by the COLLECT loop, running under task RO10TE. 

RDPTR, K?*TP. S and RCDUNT are used to eaintain RBUFF. The 
first two are a read palter, and a «rite pointer into the 
buffer, and the last one is a count of characters received. 

SBUFF is a stall buffer for storing the characters that ft send 
to the controller. 



0 
1 
2 
3 
4 
5 
h 
1 
8 
? 

ie 
a 

12 
13 
14 
IS 
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RBUFF* is an addition word that returns a 'wrapped around' 
result, corresponding to the size of RBUFF. 

RBUFF3 gets the nth character of the tost recent unread portion 
of the receive buffer. 

RBUFF-CLEAR clears the first n characters of the tost recent 
unread portion of the receive buffer. 

ECHO? returns true if exactly n characters have been received 
at the serial port. 
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0 \ Hatilton valves: receive buffer utility words 
i 

2 : RBUFF+ ( n t - wrappedtn+iJ ) 

3 * RBUFF-SIZE HOD ; 

' 4 

5 \ : RBUFF? ( n - c ) 

e> \ RDPTR 8 RBUFF4 RBUFF ♦ tt ; 

7 . . 

8 : RBUFF-CLEAR I - J 
? ¥RPTR 9 RDPTR ! 

18 0 RCOUHT ! ; 
11 

12 ; ECHO? ( n - t ) 

13 RCOUHT 8 = j 
14 

IS 
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RATE Pu«p flow rate in counts per second 

VOL Aiount to puip in counts 

CAIN 

ACCEL Acceleration rate of puep actor in counts/sec/sec 

ZERO 

POLE 

DIRECTION contains the puap direction flag. 



8 \ Puip - Variables 
1 



2 2VARIABLE 

3 2VARIABLE 

4 VARIABLE 

5 2YARIABLE 

6 2VAP.IABLE 

7 2VARIABLE 



ACCEL 

GAIN 

POLE 

ZERO 

RATE 

VOL 



ACCEL 2! 
6. SAIN 2! 
8. POLE. 2! 



232. ZERO 
2603. RATE 
IC4G. VOL 



2! 
2! 
2! 



8 \ variable PDIR is defined in task support; 1 ' forward 
KL and KL/KXK set the flow and vcluae variables after converting ? 

IB 
U 



froa the given units to putp counts. 
FORKED and REVERSE set the puap direction paraaeter. 



12 
13 
14 
15 



tl ( n 
KL el ; 
al/ein ( n — 
KL/illN il/fiin 
FQRHARD ( n - 
..REVERSE ( n - 



) flUP PVDL ! 0 23333 I ft!/ VOL 2! 



) DUP PRATE ! 8 2BGG3 43 HI/ RATE 2f 



1 POIR ! 
3 PDIR i 
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SEKDPARN gets the address and length of coaaand string, and 
address of a double variable and generates a cosplete puap 
ccfaand. Coaiand looks like: •SPlflSa3;\ Refer to puip aanual, 

These coisands all set puap controller variables. 



SSTALL sends the necessary variables to.the puap. 



8 \ Puap - Send Puap Paraieters 

1 : SEHCPARH 1 ap ac n — ) PCKO PPARK 

2 : SETFLCK RATE V SP* ScffiPARN J 

3 : SETVGL VOL V PR a SENBPARK ; 

4 : SETACCEL ACCEL V AC SENBPARK ; 

5 : 3ET6AIH GAIN V M 9 SENBPARK ; 

6 : SET2ER0 ZERO V ZR a SENBPARK j 

7 : SETPQLE POLE . V PL" SENBPARK ; 

8 : SETALL SETFLOH SETVOL SETAClEL SETGAIH SETZERO SETPOLE ; 

16 : TELLPKP f ac — ) POiD PSEND ; 

11 : PJRROft? V IV TELLPKP PKPBUF HEX HUKBER DECIMAL I AND 

12 ABORT' Puap exessive position error - \ ' ~ 

13 : PA3QRT .* f A3' TELLPKP V HQ' TELLPKP ; - 

14 : P_KAIT { - I BEGIN PROCESSES BUSY? IF P ABORT THEM 

15 P JEADY? UNTIL P ERROR? : 
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6 

TSLLPaP Sends a 2 character pucp coeiand. 1 

PABGRT is an emergency stop, turns the lotor off iaaediatly, .. 2 

PJAIT waits for operation coiplete, aborts if stop coaaand. 3 

P3TART starts a puap operation. Controls puap status flag. 4 

PRESET causes controller to use it's default paraaeters. 5 

PREVERSE puaps in reverse direction. - * 6 

PFGRnARD puaos in forward direction. • 7 

PDEClItAL Controller interprets nusbers in deciaai foraat. 8 

PKEX Controller interprets nuibers in Hex foraat (default). 9 

PSEP.VO Puts controller in servo'aode. IB ; 

PDIRECTIQII sets the puap direction based on contents of 11 

DIRECTION. l2 • 

IW sends an entire set of caaaands to start up the puap 13 

using the current puip paraaeters, 14 : 

JSITJW does the puap initialization. 15 



\ Puap - Puap Cocaands 

PSTART- TRUE PBUSY ! |« BG f TELLPKP' P if AIT 
P.OE 1. V QE" PCKD >STRKG +CHD5TR PSEND 



FALSE PBUSY 



PRESET V RSV 

PREVERSE I* BR* 

PFORKARD V BF" 

POECIHAL P OC 
PHEX 
PSERVO 



V HV 
f SV 



TELLPKP 
TELLPKP 
TELLPKP 
TELLPKP 
TELLPKP 
TELLPKP 



POIRECTION PDIR ? IF PFORIfARB ELSE PREVERSE THEN 
PUKP ( - ) PSERVO PHEX SETALL POIRECTION 
INIT.PUKP ( - 1 PABORT PRESET P QE : 



P3TART 
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PI/O is the data input/output port for the puap controller 

PSTS Status port for I/O. 

RCVRDY bit in PSTS is a 8 when data is available. 

MTPDY is a 1 when it is ok to transit to the controller. 

rS?I,« * / **** the U " 0k t0 seftd a P Uf P «"«<• 
P.STATU53 returns the I/O status flags. 

PJATA3 returns the data byte froa the controller. 

P.DATA! writes a couand byte to the controller. 

P.CTS? returns true if it's ok to transait a coaaand. 

P.RCVROY? returns true if data waiting to be read. 

P.REAOY? returns true if the controller is ready. 

P.GET8YTE waits for a data byte and returns it. 

F.IKrLUSK reads any regaining data bytes before returning. 



B \ Puip Control - Coeaunication Words 

1 HEX 

2 3EE CONSTANT PI/0 

3 3EF CONSTANT PSTS 
4 



6 
7 
8 
? 

IB 

U 
12 
13 
14 ; 
15 



1 CONSTANT RCVRDY 

2 CONSTANT XHTRDY 
4 CONSTANT PREADY 



P.STATUS3 

PJATA5 

P.OATA! 

P_CTS? 

P.RCVRDY? 

P.READY? 

P SET8YTE 



{ — n) 
( — n) 
( n ~) 
( — t) 
< — t) 
( — t) 
( — n) 



PJNFLUSH ( — ) BEGIN PAUSE P RCVRDY? 
REPEAT j OECIHAL 214 218 THRU 



PSTS INPUT ; • - 

PI/0 INPUT ; 
PI/0 OUTPUT ; 
P.STATUS* XHTRDY ANO ; 
P.STATUS3 RCVRDY AND NOT j 
P.STATU53 PREADY AND ; 
BEGIN PAUSE P RCVRDY? UNTIL PJATA3 ; 

WHILE PJATA? DROP 



114 



PHPBUF is used to build puap coaaand strings in. First byte is ! ' ^ " TrinS4iS5i0n 
count. Also contains the characters returned by the controller 

after a coaaand was sent. Look here for results. 
8BUF initializes the PHPBUF 

♦BUF! stores the new character and increments the string count. 

nonprinting CiWs are ignored. , 
P.XKTWAIT flushes the input streaa and waits until it's ok to 

transit a new coatand to the controller. 
P RESULT «aits for the controller's coaaand response Ul or 

A colon ■:• signifies ok, while a ■?■ aeans error. 



2 CREATE PHPBUF 20 ALLOT HERE 1- CONSTANT NBUF 

3 : 83UF 8 PHPBUF C! ; 

4 HEX 

5 : +BUF! ( n — 1 28 KAX PttPBUF DUP C3 1+ 2DU? SNAP C! ♦ C! ; 
6 

1 : PJMTKA1T { — ) BEGIN PJKFLUSH P.CTS? UNTIL j 

8 .. 

? : P.RESULT ( — a) 83UF BEG IK P GETBYTE SUP tBUF! 3A 48 
18 UITHIM UNTIL PHPBUF OUP C3 + CJ ; 



>PUN? sends the strin, Nhose address and count are on the stack 12 : >P1R1P < a c 



to the piup. Aborts if returned char is not ":* 



H 
15 



1 8 DO P.IKTMAIT OU? CJ PJATA! 1+ LOS? 



DROP P.RESULT 3F = ABORT" puip coetand error' j 
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TESTING KGR5 



« Starts formatting a double nutber at the end of PHPBUF. 

!ct^ 5 fcriattin *' strift * is » n W» and addr, count on stack 
/STRNS converts a double nuaber to a HEX fonat text string, 

♦CKDSTR builds a puap coaaand string in PHPBUF giver, the address 
PCHP initializes coaaand buffer and copies string to it. 
PPARK gets double nuaber out of address and adds string to buHr 
PSEND ends a coaaand string with a V and sends it to the puap. 



\ Puap 
: P.c«d. 
: XPUft? 



Coaaand Foraatting 

— an) ! WORD. COUNT j 

P.cad >PUHP , r PHPBUF COUNT TYPE 



i 



(I NBUF PTR 

5 : #} ( — a nl 2DRQP PTR a NBUF OVER - | ,* 

6 : >STRN6 ( d — a n) SNAP OVER OABS HEX (t IS SIGN l> 

7 • DECIMAL 

8 HEX i r - 

? : +CK0STR (an — ) 8 DO DUP W +BUF1 
18 : PCHD ( a — J 8BUF COUNT. +CHDSTR , 

11 : PPARH ( a — ) 23 >STRNB *CKDSTR ; . 

12 : PSEND ( — ) 3B ♦BUF! PHPBUF COUNT >PUHP 

13 DECIMAL 
14 
15 



1* LOOP DROP 
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B \ Relay Control - Method words 
1 

2 : NAKED ( - ) CREATE RLY 3 C, DOES) ( — I) « - 

3 ; IS.OFF ( t —I IF -i ELSE 8 THEH KSK } AND 

4 KLYDEFAULTS PRT < ♦ OUP C9 K3K » INVERT AND SMP OR • 

5 : DELAY ( is — ) 

6 COUNTER + SESIN PROCESS CKOS BUSY? IF CTL LOOP THEN 

7 DUP COUNTER < UNTIL CROP j 
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The upper port of the PIA generates the address and control * 
(read/write), while the loner port is for data in/out. 
These constants define the I/O addresses for the 6821 PtA chip 
op the Osts-22 AC 2 adapter card. 

OUTDIR sets the PIA to all bits out for the given channel, 
IHDIF: sets the data direction to input. 



RLYSOUT cutouts the data value to the PAKUI port (8-2). 
(PAffUX is a parallel board connected to the PI A) 
RLYSIi: gets the current state of all the relays. 



0 
1 
2 
3 
4 
5 
& 
7 
8 
9 
18 
U 
12 
13 
14 



\ Relay Control 
HEX 

\ direction/data control 
318 CONSTANT COA 311 CONSTANT CTLA 
312 C0K5TAHT COB 313 CQKSTW CJLB 
: OUTDIR < a — ) >R 6 11- OUTPUT 

OUTPUT 34 ft> OUTPUT ; 
: IHDIR ( \~ ) >R 8 11- OUTPUT 

OUTPUT 34 R> OUTPUT j 
: RLYSOUT (da — 1 CTLB OUTDIR DUP COA OUTPUT SKAP CD? OUTFU! 

DUP 48 ♦ CDA OUTPUT COA OUTPUT ; 
: RLYSIH (a — J CTLB INDIR OUP CDA OUTPUT 36 + CDA GUTPUI 

COB IKPUT 8 CDA OUTPUT ; 
DEC I HAL 288 218 THRU 



\ upper parallel port 
\ lower • • 
8 I OUTPUT 8FF I !- 

8 I OUTPUT 6 I I- - 
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RLY contains the relay \ after RELAY is executed 

PRT contains the PAHUX port address after RELAY (8-2). 

K3K contains the bit task to isolate the relay bit. 

RLYUPDATE Given the new state {either on or off) for a relay, 
read in the current reiay states tor this group of 8, and 
set the new stats for this relay. The current status for 
for these relays is saved in RELAYS for status updating 
Mote that RELAY eust be executed before ON or OFF. 

RELAY converts a relay nutber (1 - 241 into a port « and it's 
bit position in the port. 

ON and GFF turn just the relay selected by RELAY on or off. 

INlTJtLYS sets ail the relays to their user selected state, 
(defined by the bits in RLYOEFAULTSJ 



6 \ Relay Control 

1 VARIABLE RLY \ These 3 variables are set by RELAY 

2 VARIABLE PRT VARIABLE HSK VARIABLE SKS 
3 

4 : RLYUPDATE ( n — ) 

5 HSK 3 AND \ isolate relay state bit 

6 PRT 3 RLYSIH \ get current state 

7 KSK'3 -1 XOR AND ( reiove old state ) OR \ insert ne* state 
B PRT 5 2DUP RELAYS + C! < save relay status) RLYSOUT ; 

9 : RELAY ( I — ) i- \ Converts 1-24 to 8-23 

18 OUP 6 23 WITHIN HOT ABORT* Relay I is out of range* 

11 DUP RLY 1 8 /HOD PRT ! BITNASK 4 CS HSK ! ? 

12 : (ON) RLYDEFAULTS PRT 3 4 M INVERT RLYUPDATE ; 

13 : (OFF) RLYDEFAULTS PRT 3 ♦ CS RLYUPDATE } 

14 j 1NIT.RLYS 

15 CTLA OUTDIR CUB OUTDIR 21 1 DO I RELAY (OFF1 LOOP ; 



530 



NAKED is used to give a relay a naee: ' 4 RELAY NAKED KETHANQL" 
Later, use as: KETHANOL RELAY OH 

IS.OFF is used to define the state of the relay when 'off. 
Allows a relay to be norially on rather than off. 
Uses 4 RELAY I IS.OFF cakes - on' the default for relay 4, 
Combine the two definitions: 3 RELAY HAJ1ED KATER 0 IS OFF 

DELAY waits a given nuiber of lilliseconds before returning. 
Use it in user tethods rather than FORTH' s US to all on 
recognising the stop cotiand. Quits back to tain loop if stop 

HS is redefined to be used as a units descriptor in a lethrid. 
Use: 5 HS DELAY or 18 SEC DELAY. 
WIN waits for several tinutes. 
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8 \ Relay Control - Method words 
1 

2 : OH ( - ) .(OH) B; 

3 : OFF ( • ) (OFF) B; 

4 ' 

5 : SENSOR I • - I I- DUP 28 24 WITHIN 

6 MOT ABORT* Sensor 4 is out of range* SHS ! ; 

7 : (GET-SENSOR) ( - on/off ) SKS 3 8 /HOD 
B RLYSIH SHAP BITNASK? AHD HOT NOT ; 

9 : S¥AIT ( on/off ) BE5IH PROCESS CKDS BUSY? 

18 IF CTL.LOOP THEN DUP (6ET-SENSOR) = UNTIL DROP B? 

11 : 6ET-SEKS0R ( * - ) SENSOR (6ET-SENS0R) ; 

12 : OH-HAIT ( - ) 1 SHAIT 5 

13 : OFF-WAIT ( - ) 8 SNAIT ; 
14 

15 : UPD-SEHSORS ( - ) 2 RLYSIH RELAYS 24 C! ; 
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LAST-END contains a pointer to the address of 'endaethod" 
in the last occurance of END. if EHO is feeing cotpiled 
for the first tiae in a load, this pointer aust be 
noP. 

8HTHD initializes the control task aethod parameters. It 
efpties the dictionary space of the task, clears any- 
outstanding status ie=s«ges. resets LAST-END to 8. 
connects the tasks dictionary to the top of the lain 
dictionary, cieares the old aethod r.aee. 



1 

3 
4 
5 
6 
7 
8 

18 
11 
12 
13 
14 
IS 



\ Method Execution - initialization 
VARIABLE LAST-END \ Points to 'endiethod' in last END 
CKTHD 

EMPTY e MTHPTR ! \ get rid of old aethod 

Q MPHSS I- 8 FPMS6 ! \ Clear eessages 

8 LAST-EKD-! \ Iintialize ENfe - 

OPERATOR CQhTEIT HIS CONTEXT 28 HOVE \ chain vocabulary 
6 METHODBUF ! TRUE CHAHGEMETHOD ! ; \ clear sethoo nase 
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METHOD Defining word. Coapiles a' ne« aethod and puts it's 
• starting address into MTHPTR. 

endaethod Run tiae code for EHD. Tertinates isthod execution. 

EHO Coapiling wrd inserts •eridasthod* as end of aethod 
definition and stops coapiling the aethod definition. Since 
aethods fust bs able to nest, 'sndaethod' tust execute-only 
once f at the end of the last aethod defined. The variable 
LAST-END is used to replace earlier cospiled addresses of 
•endaethod - with EXIT, effectively converting all but the 
last occurance of EKB into noraal forth seeicolons. 
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C \ Method Execution - defining aethods • 
1 

2 : METHOD 

3 HERE RTKMPTR ! 

4 : LAST 5 J CFA 2+ MTHPTR ! ; 
5 

6 CODE endaethod BUSYBIT f RUN STATUS MOV ■ EXIT JMP 
7 

B : END 

9 LAST-END ? ?BUP 
18 IF CM EXIT 2- OVER f THEN 

11 HERE LAST-EKO ! 

12 COMPILE endaethod . SMUDGE R) 8= STATE ! ; IMMEDIATE 
13 

14 
15 
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break Runtiae code for B; Used in place of to check for 
pause, step, or continue coaaands froa the user task. Exits 
the com and loop if stop. 

B; terminates a definition, causing a 'break" to process 
coaaands froa the user task and to allow other tasks to run. 



8 \ Method Execution - breaking execution 
1 



break STEP? IF PAU3EBIT RUK.STATUS ♦! THEN 
BEGIN PROCESS.CMK BUSY? IF CTL LOOP THEN 
PAUSE? HOT UNTIL R> DROP EXIT ; 

B; COMPILE break SBUB3E R> 8= STATE ! : IMMEDIATE 



9 

16 
il 
12 
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14 
15 
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P CT/CTno , 0 V Control Task - Start/Stop Run Control 

CJT/STOF processes a start/stop conand fro. the user. • \ - C.ST/STOP < ptr — ) DROP 

2 BUSY? IF ( cant start or stop *hen its busy) 

3 notready 

4 ELSE ' - 

5 IDLE? IF ( not running} 

6 HTHDOi:? IF I start a ne« runl 

7 * RUiNBIT RUK.STATUS ! startrur. 

8 ELSE ( soiething wrong with the lethod) 
? KTHDERR 

la THEN 

11 ELSE ( end the run) 

12 BUSY3IT RUN STATUS ! endrun 

13 TKEN 

14 THEN ; 
15 
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C.PS/COKT processes a pause/continue couand frot the user. 



184 

6 \ Control Task - Pause/Continue Run control 

1 : C.PS/COMT ( ptr ~ ) DROP 

2 BUSY? IF 

3 notready 

4 ELSE 

5 IDLE? MOT IF 

6 PAUSE? IF 

7 RUN.STATU3 3 C STEPS IT PAUSEBIT OR NEGATE I- 3 
3 LITERAL AND RUK STATUS ! 

9 ELSE 

ifl PAUSEBIT RUN STATUS ♦! 

11 THEM 

12 . THEN 

13 THEN ) 
14 
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r f?Tcp • i , . , - 0 X Control* Task - Single Step Run Control 
cjaTEP processes a single step cosiand froi the user. 1 : rj 3TE? ( ptr _ , DR0P 

2 BUSY? IF notready 

3 asE 

4 IDLE? IF 

5 HTHDOK? IF \ start a run in single step oode 

6 RUNBIT STEPBIT ♦ RUN STATUS ! startrun 

7 ELSE 

8 hTHDERR TKEN 
? ELSE 

IB RUN JTATUS 9 

11 PAUSE? IF \ turn off pause to do one step. 

12 C PAUSEBIT NEGATE 1- 1 LITERAL AND 

13 THEN STEPBIT OR RUN STATUS ! 

14 TKEN 

15 THEN : 



0 \ Control Task • 
1 

2 181 182 THRU- \ 



3 192 193 THRU 

4 183 W -THRU 

5 194 LOAD 

6 237 LOAD 

7 213 LOAD ■ 

8 225 LOAD 

9 234 LOAD 

10 237 LOAD 

11 I?B LOAD 

12 EXIT 
13 

14 
15 



• Load Block 

Basic tools 

iethod structure words 

Coiiand processing' 

great execution words 

Relay Control 

?m Control 

Had i ton Valves 

fiixer Operations 

Pr ograsaable esssages 

Task loop, initialization 
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HTKPTR II not 8, points to cost recent valid iethod. 
HTKHPTR is used for displaying the naie of the iethod. 

>XTHD-NAME places the naes of the iethod in HETH0B8UF. 



e 

i 

2 
3 
4 
5 
6 
7 
6 
9 
18 
11 
12 
13 
14 
15 



\ Control Task ~ basics for eethods 

VARIABLE HTHPTR \ Points to first word of iethod 
VARIABLE HTNKPTR \ Points to nfa of iethod 

: }nTHD-KAKE 

aETHCOBUF K.1LEH SUNK 
KTNKFTR 3 4 ♦ COUNT 11 KIN 
KETKOOBUF SVAP CKOVE : 
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IDLE? returns true if a iethod is not running. 

BUSY? returns true if cycling fros running to idle. 

PAUSE? returns true if in pause state. 

RUN? returns true if running, pausing, or stepping. 

STEP? is true if in single step lode. 

RSP sends a response (a eessage pointer and a token) to a 

coiiand froi the user task. 
ACfCRSP responds with ok if coiiand was accepted. 
KAKRS? is an error response, string is used for error lessage. 
startrun will perfon necessary processing to start a run. 
endrun will do what is necessary to end a run. 
notready responds with not ready error. 
MTHQOK? returns true if iethod exists and no load errors. 
KTKCER& error if the iethod is not ok. 



e 


\ Control Task - 


basics for status Checking 


1 : 


statcheck ( n — 


t) SUN.STATU5 3 AND ; 


2 : 


IDLE? ( 


— t) 


IDLESITS statcheck NGT 


3 : 


BUSY? ( 


— tJ 


BUSYBIT statcheck ; 


4 : 


PAUSE? ( 


— t) 


PAUSES IT statcheck ; 


5 : 


RUN? ( 


— t) 


HB8IT statcheck ; 


6 : 
7 


STEP? ( 


— t) 


STEPBIT statcheck ; 


8 \ 


: RSP ( 


ptr n — 


) FRQn.CCKTR0LSEKD.HS6 


9 \ 


: ACKRSP 


C — ) 


1" control ok - ACK RSP 


IB \ 


: NAKRSP 


( ptr — ) KAK RSP : 


11 : 


startrun 


• 
t 




12 : 


endrun 


( perfors end run operations) ; 


13 : 


notready 


TRUE ABORT* Error: not ready! - 


14 : 


hTHBQK? 


HTHPTR * 


• 
i 


15 : 


HTH3ERR 


TRUE ABO 


RT 1 Error: Ho Method!- ; 



138 



SHO-RLYS displays the current status of all relays. 
SHO-PfiSSS displays both prograwable lessages. 



8 \ Device status - background - updates at refresh tiae 
I 

2 : 3RLY-STAT ( if- on/off ) 

3 8 /KGD RELAYS ♦ C3 SKAP BITHASK9 AND ; 
4 

5 : SHQ-KLYS ( - ) 

6 24 6 00 

7 1 tf.LY-STAT 1 OISP-RELAY 

8 LOOP ; 
? 

16 : SHO-PHSGS 

11 MPHSS 3 I CISP-PKSG 

12 FPKSS 9 e QISP-PHSG ; 
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STATU3-BKG paints the whole status* display, and updates its 
contents to the current value of all devices and Messages. 
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0 \ Device status - background - top level 
1 

2 : STATUS-8KB ( - ) 

3 \ Display all boxes and default test for background 

4 PUKP-60X MIXES-BOX 

5 RV-BOXES CD-BOX 

6 \ Refresh all of the actual divece and tessaae status 

7 • KIHOQHOFF 

* 8 SHO-RLYS SHO-RVLVS SH0.-PUKP SHQ-MXER SK0-MS6S 
7 VIKDOKON ; 
18 
11 
12 
13 
14 
15 
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e 

l 

2 
3 
4 
5 
6 
7 
8 

IB 

U 
12 
13 
14 
IS 
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RV-BOX draws a single rotary valve box at the location 
requssted on the stack, and labels it with the given 
nuaber (n) on the stack. 

RV-SOZES draws all four rotary valve boxes and labels 
then apropriately. 



e \ Device status - background - ROTARY VALVE boxes 
1 

L 

3 



5 
6 
7 
6 

18 
11 
12 
13 
14 
15 



RV-BOX ( top left n - ) 
>fc 2DUF TAB 
6 DRTl 35 KIT R> 46 * KIT 
SKAP I* 2DUP SHAP 15 DR2SD 
1+ SKAP TAB 15 DRBTK ; 

RV-BOXES ( - ) 
4 20 TAB ROTARY VALVES" 
1? 2 4 6 00 

3 ♦ 2BUP SSAP I !♦ RV-BOX 
LOOP 2GRGP ; 



ORTR 
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8 \ Device status - background - CONTACT DEVICES box 

CD-BOX draHS a contact device box with ail its labels and 2 : C0-BOI ( - ) 

tltles * 3 2 48 TAB CONTACT CLOSURES" 

4 3 35 2DUP TAB 

5 7 DRTL RBCTHH - 6 DRBAR TC 6 DRBAR FUNCTION" 7 0RTR 

6 SKA? 12 8 DO 

7 1+ 2DUP SKA? 22 DR3SD.. 

8 LOOP 

9 I* SKAP TAB BL 28 DRBAR BC 28 DRBAR BR ; 
18 

il ' 

12 

13 

14 

15 
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All the words in this and the following screen display thier 
respective information regardless of wether the status of 
any of thee has been aodif ied sinse it was last displayed. 

SHMVLVS displays the current status of ail rotary valves, 

SHO-filXER displays the current status of the lixer. 

SHO-PUKP displays the current status of the putp. 



8 \ Device status - background - updates at refresh tiae 
1 

2 : SHO-RVLVS ( - ) 

3 7 8 00 1 DISP-RV 2 +LO0P ; 
4 

5 : SHO-KIXER ( - ) 

6 KXBUSY a DISP-ftXSTATE KI7IHE 3 D1SP-WXTIHE 

7 MXPKR 9 DISP4XPHR KXDUTY a DISP-KXOUTY ; 
8 

9 : SHQ-POKP ( - I 

IB PBUSY a OISP-PSTATE PVOL a OISP-PVOl " 

11 FRATE a OISP-PRATE PDIR a MSP-PDIR : 

12 

13 

14 

15 
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BROfi-PIECE defines self eaiting constats for sending border ■ 
characters to the screen. 

All border pieces, except for the horizontal piece, are 
•«tinied using ERDB-PIECE. The pieces are: 
TL for top left, TC for top center, etc... 

BAR-STR is a string of horizontal characters used for drawino 
a horiiontal bar. 



B \ Device status - background - basic tools 

1 : 8RDR-PIECE 

2 CREATE , ( c - ) 

3 DOES) a EMIT ; 

4 219 BR0R-P1ECE TL 194 BRDR-PiECE" TC 191 8RDR-P1ECE TR 

5 17? BRBR-PIECE VT 

6 192 BRDR-PIECE BL 193 BRDR-PIECE BC 217 BRDR-PIECE BR 
7 

B CREATE BAR-S7R 2B ALLOT 
9 : HAKE-STRIH5 ( - ) 
13 BAR-STR 28 8 DO 

11 196 OVER C! !♦ 

12 LOOP DROP ; 

13 KAKE-5TRIN8 FORGET HAKE-STEWS 
14 

15 
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0R3AR draws a horizontal bar of n characters at the current 
cursor position, 

DRTL and DRTR draw top left and top right sections of a box 
respictively. 

ORTCP and DR3TR draw a complete top or bottoi section for a 
box. 

DR2SD draws the two sides of a box on one line. 

DR3SD is the saae as 0R2SD, but is used for boxes that have 
a vertical center divider. 



B 


\ Device status - background - drawing sections 


1 : 
2 


DRBAR 


t r. - ) BAR-STR S«AP TYPE ; 


3 : 


DRTL 


( n - ) TL 1- DRBAR ; 


4 : 
5 


DRTR 


( ft - 1 - 1- DRBAR TR ; 


6 : 


GRTOP 


( n - ) TL 2- DEBAR TR ; 


7 : 
8 


DRBTfl 


1 n - ) BL 2- DRBAR BR ; 


9 : 


DR2SD 


< y x n - ) 


18 


I- >R 


2DUP TAB VT 


11 


R> * 


TAB VT j 


12 : 


DR3S0 


( y x n - J 


13 


1- >R 2DUP TAB VT 


14 


I ♦ 


2BUP TAB VT 


15 


R> ♦ TAB VT : 
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PU/HIX-BCX draws a pu«p or iixer box at the location 
specified on the stack. 

PUKP-BQI draws a puip box at the appropriate location, and 
places ail the reouired labels and titles in and around 
it. 

H1XER-B0X drans a iixer box at the appropriate location, 
and places all the required labels and titles in and 
around it. 



6 
1 
2 
3 
4 
5 
6 

* 7 
6 
9 
18 
11 
12 
13 
14 
15 
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\ Device status 



background - PUI1P and MXEfi boxes 



PU/MX-BOX ( top left - ) 
2D0P TAB 17 DRTOP 
OVER 1+ UUP 3 ♦ SWAP DO 

I 2 PICK 17 DR2SD 
LOOP. 

SWAP 4 4 SWAP TAB 17 DRBTM 
PUKP-BOI 

4 3 TAB 

h 2 TAB 

B 2 TAB . 
HIXER-BQX 

11 3 TAB 

13 2 TAB 

15 2 TAB 



PU«P' 5 1 PU/KII-BOX 
VOLUME:' 7 2 TAB FUW RATE: 
DIRECTION: 1 ; 

• HIXER" 12 I PUMX-BOX 

• DURATION: ■ 14 2 TAB ?GKER: 
■ I DUTY:' : 
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0ISP-PHS6 gets a string address and a flag that indicates 
* whether this string is a cetnotf tessage string (U or a 
. function fessage strino <B), It then places this string 
is tte appropriate screen position. I* the string 
pointer is 6, then then appropriate sessaoe area on the 
screen is cleared. 



0 \ Status display - prograiable tessages - display routine 



1 

2 : 

3 

4 

S 

6 

7 

8 

9 

16 
U 
12 
13 
14 
15 



DISP-PHS6 ( str-addr •thd/func - J 

IF 2 9 SCTAB 66 

ELSE 4 4 SCTAB 2B 
THEM SKAP ?0UP 

IF CSHOTERtt 

ELSE SPttERH 
THEM : 
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STRPHS6 updates the aethod proqriacable sessagE on the screen 
if it has been changed since last displayed. 

STFPH3G updites the function prograsiable isssage or the screen 
if it has been changed since last displayed. 
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B \ Status display - progratable aessaqes - top level 
1 

2 : STMPHS6 ( - ) 

3 flPKSS 3 UUP QLDMPKSG 3 * HOT 

4 IF DU? I DISP-PKSS QLDMPKSG ! 

5 ELSE DROP 

6 THEN ; 
7 

6 : STFFKS6 ( - ) 
9 FPKSS ? DUP OLSFPKSG 3 = KOT 
IB IF DUP B DISP-PnSG 0LBFPHS6 ! 

11 ELSE DROP 

12 THEN ; 
13 

14 
IS 
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STPKSG updates status screen prograsiable sessages whenever 1 

they change. 2 : STPKSB ( - ) 



\ Status display - prograsabie esssages - top level 



3 STAT-GN? 
.4 IF ST8PHSG STFPKS6 

5 THEN ; 

h 

/ 

8 

9 
IS 
11 
12 
13 
14 
15 
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DtSP-PSTATE displays the current on/off status of the putp. ' 

DtSP-PVOL displays the current volute setting of the puip. 

OtSP-PRATE displays the current pu*ping rate setting of the 
puip. 

DtSP-PDIfc displays the current direction setting of the puip. 



B \ Status display - puip status updating - display routine* 

1 J DISP-PSTATE ( on/off - ) 6 12 SCTAB 

2 IF C HEX J. F0C STAT-ATTK ! I" OK • COUNT >TERK 

3 780 STAT-ATTR ! ( DECIMAL 1 

4 ELSE f OFF' COUNT ; TERR THEH * ; 
5 

6 : DISP-PVOL. ( r. - ) 

7 8 13 SCTAB Mi < I I I] >TER« ; 
6 

? : DISP-PR.ATE ( n - 1 

18 ? 13 SCTAB S (I I t I I) >TERK ; 
tl 

12 ; DISP-PDIft { for/rev - ) 

13 IQ 13 SCTAB 

14 IF P FOR" COUNT >TERK 

15 ELSE P REV* COUNT HERB THEM ; 
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All of the following words display their infonation only 
if this infonation has been codified since it was 
last displayed. 

PUKP-STATE? for the puep's current on/off setting. 

PUfl?-VQL? for the puap's current voluae siting. 

PUKP-RATE? for the puip's current puiping rate setting, \ 

PUKP-DIR? for the puep's current direction setting. 
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8 \ Status display - puip status updating - status checks 

1 : PUKP-STATE? P3USY 9 DUP QLDPBUSY.9 = NOT 

2 IF DUP DISP-PSTATE OtDPBUSY ! 

3 ELSE DROP THEN ; 
4 

5 : PUKP-VGV? PVOL 9 OUP OLDPVOL 9 * NOT 

6 • IF DOT DISP-PVOL OLDPVOL i 

7 ELSE DROP THEH ; 
B 

9 : PUNP-ftATE? PRATE 9 DUP OLBPRATE 9 = NOT 
IB IF OUP D1SP-PRATE OLDPRATE ! 

11 ELSE DROP THEH ; 
12 

13 : PUNP-OIR? PDIR 3 OUP OLDPDIR 9 = NOT 

14 IF DUP DISP-PDIR OLDPDIR ! 

15 ELSE DROP THEH ; 
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CTPIIM0 ... 6 \ Status display - puip status updating - top level 

STPUhV displays any puap settings that tay have changed 1 

since they were last displayed. 2 : STPUHP ( - I 



3 STAT-QN? 

4 IF PUnp-STATE? PUKP-VQL7 PUKP-RATE? PUKP-OIR? 
THEN : 



471 

01SPH1XSTATE displays the current on/off status of the sixer. 

DISP-KXTIHE displays the current duration setting of the 
•si.\c*r. 

OISP-KXPKR displays the current power setting of the aixer. 

OISP-KXDUTY displays the current duty cycle setting of the* 
»ixer- 
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B \ Status display - sixer status updating - display routines 

1 : 01SP-HXSTATE ( on/off - ) 13 12 SCTAB 

2 IF C HEX 3 FB6 STAT-ATTK ! V OK 9 COiJHT >TERfi 

3 790 STAT-ATTR ! [ OECIHAL'3 

4 ELSE l p OFF* COUNT >TEiW THEN ' ; 
5 

6 : DISP-KXTIHE ( n - ) 

7 15 13 SCTAB 8 (I t I I t> >TERK ; 
8 

9 : DISP-MPHR (n-l 16 13 SCTAB C HEX ] 

IS 8888 CASE IF l B 1/4- ELSE 8681 CASE IF f 1/2*. 

11 ELSE BIOS CASE IF I' 3/4' ELSE 8181 CASE IF I' FOV . 

12 THEX THEM THEN THEN COUNT >TERH t DECIMAL 1 ; 
13 

14 : OISP-HXDUTY ( n - ) 

15 17 14 SCTAB 8 (t I t C> >TERH ; 
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All of the following words display their information only 
if this inforeation has been codified since it was 
last displayed. 

KX-SIATE? for the sixers current on/off setting. 

KX-T1RE? for the lixer's current tias setting. 

KX-PKR? for the fixer's current power setting. ' 

KX-CUTY? for the aixer's current duty cycle setting. 
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8 \ Status display - aixer status updating - status checks 

1 : HX-STATE7 KXBUSY a OUP OLBHXBUSYi = KQT 

2 IF DUP DISF-KXSTATE OLOHXBUSY ! 

3 ELSE DROP THEN ; 

■ 

t 

5 : BX-TIHE? . flXTIKE * DUP QLBHXT1HE 3 * KOT 

6 IF OUF OISP-KXTIKE GLDtfXTIKE ! 

7 'ELSE DROP THEN } 

n 
O 

9 : KX-PNR? KXPKR 3 DUP QLOflXPUR ? = KOT 
18 IF OUP DISP-KXPKR OLDKXPWR ! 

11 ELSE DROP THEH ; 
12 

13 : KX-OUTY? HXDUTY 3 DUP OLBKXBUTY * = KOT 

14 IF DUP DISP-KXOUTY OLDKXDUTY ! 

15 ELSE DROP THEH ; 



^3 1S2 

6 V Status display - lixer status updating • top level 
SThTxER displays any fiixer settings that *ay have chanced 1 

since they were last displayed. 2 : STKIXER ( - ) 

3 STAT-QN? 

4 IF HX-STATE? HX-TIKE? KX-PKR? KX-OUTY? 

5 THEN ; 
& 

7 
6 
9 

18 
11 
12 
13 
14 
15 
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POSDPORTI converts a position nutber 11,4,7.18) to a port « 
nuiber (1,2,3,0. 

>RV-DISP positions the cursor at the beoinina of the display 
region for the requested valve nurier on the stack. 

DISP-RV displays the status of the requeted rotary valve. The 
value $iven on the stack In) is twice the value of the 
valve nusber. 

0PWV-3MT updates the status variables for the requested 
rotary valve. The value given on the stack (n) is twice 
the valui of the valve nuiber. 



fl \ Status display - rotary valve updates - basics 

1 ; POSDPORTI In-) 

2 3 /ROD ♦ J 

3 : >RV-OISP I n - 1 

4 3 t 8 ♦ 28 SCTAB : 

5 : GET-RV-STR < n pi - a > 

6 DUP 8= IF 2BR0P V Not Present ■ CUT THEN 

7 OUP 3 < • 

8 IF K2I SKAP 4 14 ELSE 3 - 2t SWAP 4 ♦ 4 I 4 

9 THEN RV-KAKE-TBl ♦ 5 ; 
18 : DISP-RV ( n - ) 

tl DUP 2/ SWAP OVER >RV-DISP 

12 RV-STAWBL ♦ « POSDPORTI 

13 6ET-RV-STR COUHT >TEF:H ; 

14 : UP0-RV-STAT In-) 

15 DUP RV-STAT-TBL ♦ C* SMP RV-STAT-T&L I* + C! ; 
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STKVLVS displays the current status of ail rotary valves 
whose status has changed sinse it was last displayed. 
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B V Status display - rotary valve updates - basics 
1 

2 : STRVLVS 

3 STAT-OK? 

4 IF RV-STAT-TBL 7 0 DO 

5 Ob? I ♦ C? OVER I 1+ ♦ (S 5 NOT 

6 IF I OISP-RV I UPD-P.V-5TAI TKEH 

7 2. +LG3P DROP 

8 THEN ; 
9 

18 
11 
12 
13 
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8 
1 
2 
3 
4 
S 
6 
7 
8 
9 

18 

11 
12 
13 
14 
IS 
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CHAHGED-RLYS? displays are relays in the currently indexed 
status table byte that have been todified sinse last 
displayed. 

STRLYS displays all relays that have been eodified sinse 
they Mere last displayed. 



8 \ Status display - relay status updating - top level 
1 

2 : 
3 
< 

5 
6 
7 
6 

? : 
16 
11 
12 
13 
14 
15 



CHANEED-RLYS? ( - > 
RELAYS RLYBYTE3 OUT QLDRELfiYS RLYBYTE3 
MP. OUP 

IF SKO-B-RLYS QLDRELAYS RLYBYTEI 9 ♦ C! 
aSE 2DR0P 
THEH 

STRLYS ( - ) 
STAT-QN? IF 
3 6 00 

I RLYBYTEI ! CKAHBED-RLY5? 
LOOP 
THEH : 
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BITMASK is a table of bit tasks, indexed by a nuaber froi 
B to 7. 

RLYBTTEI in-iicates which byte in the relay t-blr «e are 
r currently indexing for status display, 

RLYBYTEJ takes a table address froa the stack (either old 
a or new status table) and returns the currently indexed ' 
status byte froi this table, 

BITMASKi returns a bitaask given a bit nuiber (8-7) on the 
stack. 



0 \ Status display - relay status updating - basic tools • 

1 HEX 

2 CREATE BITMASK 1 C, 2 C f 4 C, 8 C, IB C, 20 C, 40 C, 66 C, 

3 DECIMAL 
4 

5 VARIABLE RLYBYTEI 

6 ASSEftBLEP BEGIN 

7 H POP KB AOD fl W HOV 
B 8 6 SUB K ) 0 MOV B 

9 8 PUSH NEXT 
IB CODE RLYBYTE5 

11 RLYBYTEI 6 MOV OOP JMP 

12 CODE BITRASn 

13 BITKASX I 8 NOV JMP 
14 

15 FORTH 
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LY-OISP positions the cursor at ttie begining of the status 
display region for the indicated relay nuiber on the stack. 
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8 \ Status display - relay status updating - display array 

2 ; >RLY-DJSP ( n - ) 

3 12 /MOD 21 I 36 ♦ SWAP 6 ♦ SWAP SCTAB : 
4 

5 VARIABLE STAT-FLA8 

6 : STAT-CK? PAUSE STAT-FLAS 3 ; 

7 : STAT-0» 1 STAT-FLAo ! ; 
B : STAT-CFF C 5TAT-FLA8 ! ; 
? 

10 
11 
12 
13 
14 
15 
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0I5P-SELAY displays the status of relay n as indicated by 
the on/off value on the stack (1 = OH). 

SHQ-1-RLY is the saie as DISP-RELAY, but n indicates a relay 
relative to the currently indexed status table byte. 

SHO-8-RLYS takes a bitiask froe the stack, and displays all 
relays fro« the currently indexed status table that are 
indicated by this bitiask. 
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B \ Status display - relay status updating - display Mords 

1 : DISP-RELAY ( on/off n - ) 

2 OUP >KLY-0ISP 21 SKAP 

3 IF !♦ THEN 

4 21 CD-RAHE-T3L ♦ 9 COUKT >TERK ; 

V 

6 : SH0-1-RLY ( on/off n' - > 

7 RLYBYTEI 3 & X 4 DISP-RELAY 
8 

9 : SHO-B-RLTS < bi - ) 

IB RELAYS RLYBYTE3 

11 6 0 DO 

12 OVER I BITHA5K5 AM ?DUP 

13 IF OVER AMD I SH0-1-RLY 

14 THEM 

15 LOCP 2DRQP ; 



T OKI 
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SHOW If the first char of the current .ethod file na.e "is 
not 8, d.spla, the filena.e. Na . e uptfate(J „ y 
"hen a valid .ethod is loaded. 

STHETHO urates the currently selected .ethod na.e on 
the status header if the na.e has chanced. 

STa r^^tS St 2fH in I oriitiM at ths tflp of th * 

n«, ruotSHf ■ethod naie. 



HUH it th* « in status task loop. It runs every .1 sec. 



e 

i 

2 
3 
4 
5 
6 
7 
8 
9 
10 
U 
12 
13 
14 
15 



\ Status Task - Status Tas* Loop 

: STRUM RUH.STATUS 9 OLDSTATUS 3 - IF RUN STATUS * DUP 
OLDSTATUS! SHOKSTATUS THEN ; " WP 

: SH38SETH0D 0 62 SCTAB ffETKBDSUF 3 IF KETTOUF 

aSE r no tethod • 1* THEN* NKLEN UN0>TEP« • 
. STHETH* ^ WTHOD * IF FALSE CHANSEKSTHOO ■ 'sHDnllETKOO 

: STATU3HEAUER ( - ) 

( PAUSE STTIKE ) PAUSE STRUM PAUSE STKETHO • 
: DEVICESTATUS < - J ' 
STRUTS STRVLVS STPUfl? STI1IIER STFNSS ; 

: RUKKIK6 ACTIVATE 2M HS ( nait for initialization) 
BESIN STATUSKEADER DEVICESTATUS A6AIK ; 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

IB 

II 

12 

13 

14 

15 
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e 
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2 
3 
4 
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6 
7 
8 
9 

18 
11 
12 
13 
14 
15 



CODTIJ 
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6 \ Status Task - Load Block 
1 

2 141 144 THRU 

3 147 148 THRU 

4 158 152 THRU 

5 153 155 THRU 

6 156 158 THRU 
7 

8 127 129 THRU 

9 EXIT 
18 
11 
12 
13 
14 
15 



\ Relay status update routines 
\ Rotary valve status update routines 
\ rtixer status update routines 
\ Puip status update routines 
\ Prograuable message update routines 

\ Rest of status task 
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\ Status Task - status header strings 



8 

1 

2 \ These routines return the address of string for status header 

3 : PSE ST V PAUSE ' ; 

4 : ROY.ST V READY ■ ; 

5 : RUM ST t" RUNNING 4 j 
* : SS ST V SIN8LE STEP* ; 
7 : STEP3T V STEPPING • ; 

B : BSY.ST f BUSY 1 ; '. 

9 : ERR ST V ERROR STATE* ; 

IS ; LDB.ST f LOADING - ; 
11 
12 
13 
14 
15 
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S^.GnCLQCK displays the tite of day on the status header. 
SHQSSTATUS displays the run status in the header. 



STTIHE updates the clock if current tite is different froe 
eld tite, 

STRUN updates the run status if current status is different 
froe uhats displayed. 



8 

1 V 

2 : 
3 

4 
5 
6 
7 
6 
9 

18 

11 
12 
13 

14 \ 

15 \ 



\ Status Task 
: SH03CLQCK ( 
SHOKSTATUS ( n 



Status Header Updates 



- ) 8 43 SCTA3 (iinsl ; 
1 IDLEB1TS AHD 

8 CASE IF ROY.ST ELSE 
C RUNS IT LITERAL 3 CASE IF RUN.ST ELSE 

C RUHBIT PAU3EBIT OR LITERAL 1 CASE IF PSEJT ELSE 
i RUHBIT 5TEPB1T OR LITERAL 3 CASE IF STEP3T ELSE 
C RUHBIT PAUSEBIT STEPBIT 

OR OR LITERAL 3 CASE IF SS ST ELSE 
C BUSYBIT LITERAL 3 CASE IF BSY ST ELSE 

t FLOAOBIT LITERAL 3 CASE IF LB6JT ELSE 

OROP ERR.ST 
THEN THEN THEN THEN THEN THEN THEN 
B 12 SCTAB COUNT UKu>TERH ; 
: STTIKE HIKE OLDTIKE 3 - IF 3TIKE CUP 
OLOTIfc ! SHGKCLOCK THEN ; 
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fcUN^STnTUS Contains bits which indicate the state of the 
control task. 

The loading bits are used to recpver froa errors during a 
load operation. Noraaily, the load operation is completed 
and an acknoHlegetent is returned to the user task. But 
if an error occurs, the control tasfc loop is exited and re- 
entered by ths error handier. These bits are used to ■ 
determine how to recover fro* the error and to send an 
appropriate error eesssge. 



e 


\ Task Supoort - Systet Run Status 


l 


HEX 




2 


VARIABLE RUNJTATUS 


\ control task status 


3 


\ Bits in RUNJTATUS: 




4 


1 C0N3TAKT RUNBIT 


\ true nfcen runni ng 


5 


2 CONSTANT PAUSEBIT 


\ true when in pause 


6 


4 CONSTANT BUSYBIT 


\ true when ending run 


7 


6 CONSTANT STEPBIT 


\ true Mhen in single step code 


8 


10 CONSTANT FLQABBIT 


\ true Mhen loading functions 


9 


20 CONSTANT HLOACBIT 


\ true Mhen loading a eethod 


13 


DECIMAL 




11 


RUNBIT PAUSEBIT BUSYBIT STEPBIT FLOABBIT hh 


12 


CONSTANT IDLEBITS 


\ use this aast to test for idle- 


13 






14 






15 
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B 

1 
2 
3 
4 
5 
6 
7 
8 
9 
16 
11 
12 
13 
14 
15 
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B 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
IS 
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OTEfifl is tfc e equivalent of EKIT for tasks .ithout output 
routines F 



CBu/TERJI is t he equivalent of CEKIEREO for tasks Hithout 
output rouUnes (CENTERED is defines in *indoHS>. This 
version autcatically truncates string that are to 

iOfVg. 



6 
1 

2 : 

3 

4 

5 z 

6 

7 

8 

? 

10 : 

11 

12 

13 

14 

15 



\ Task Support - Background task CRT printing 



DTEftM 
'S 1 >TERH DROP ; 

SP>TERH 
?DUP 

IF 8 DO 61 OTERM LOOP 
THEN : 

CEWWERK 

2DUP C9 KIN OVER C! 
2KJP C3 - 21 SPHERU 
OUP COUKT )TERH 
C9 - OUP 2/ - SP>TERfl ; 
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These variables are used to uintaw. the syste. status 
infonation. For each itei in the systei that needs it's 
status displayed, there will be a variable that IS c e it's 

affects tb. itu (such as turning a relay on); there Hill M*o 
a variable .aintained by either the status task fo tats 
co er information, or the status screen updating so a 

litl \ t .: tUS SOttMare can COi P* re " the displayed* 

the display state variable) if they dont agree. This allow 
for a im speedier updating loop, sin e only o e r £ 
Jt« usually change for each pass through the s a d 



\ Task Supoort - Systei Status Variables 

CREATE RELAYS 3 ALLOT RELAYS 3 ERASE \ Relays 1-24 
CREATE QLDRELAYS 3 ALLOT OLDRELAYS 3 ERASE 
CREATE RLYDEFAULTS 3 ALLOT RLYDEFAULTS 3 ERASE 

VARIABLE PBUSY 
VARIABLE' PRATE 
VARIABLE PVOL 
VARIABLE PDIR 



VARIABLE 0LSP3USY 
VARIABLE 0LDPRATE 
VARIABLE OLOPVQL 
VARIABLE 0L0P0IR 



\ 1 = busy 
\ Putp flow rate 
\ Puap volute 
V Puap direction 



VARIABLE OLOTIKE \ previous tiee of day 

VARAIBLE OLUSTATUS \ previous run status 

VARIABLE CHANSEHETHOD \ true «hen a "n e « .ethod is loaded 

CREATE flETKODBUF KKLEX ALLOT \ current «thod file na«- 
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«ore syste* status infonation variables. 



\ Task Supoort - Systei Status Variables 



6 
1 

2 CREATE RV-STAT-TBL 8 ALLOT \ Rotary valves M 

3 RV-STAT-TBL 8 ERASE 

4 CREATE RMEFfiULTS 4 ALLOT \ Rotary valve initial positions 

ft TC f* I t rui nm*ai. . _. 



5 4 RV-OEFAULTS 

6 8 KV-OEFAULTS 2 
7 

8 VARIABLE KXTIHE 

9 VARIABLE MXPHR 
IB VARIABLE MIDUTY 
11 VARIABLE MXBUSY 
12 

13 VARIABLE MPHS8 

14 VARIABLE FPKS6 
IS 



C! 
♦ C! 



4 RV-DEFAULTS 1 
6 RV-DEFAULTS 3 



♦ C! 

♦ C! 



VARIABLE OLMXTIflE \ 

VARIABLE OLBMXPKR \ 

VARIABLE OLDMDUTY \ 

VARIABLE GLDilXBUSY \ 



Nixing tiie 
Kixer power setting 
flixer duty cycle 
1 s fixer is on 



VARIABLE GLflh?fiS6 
VARIABLE OLDFPNSS 



Method tessage pointers 
Function eessage pointers 
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These tessage tokens are used to coaaunicate between the user" 
and the control tasks, Messages sent to the control task 
consist of a conaand token fro* this list, and a pointer to a 
»*rin$. T>- text string is used to pass filen?*es to the file 
load ccaeands, and possibly to pass a FORTH coaaand string to 
a lyet undefined) coaeand interpreter. All other coseiands 
can send a NULL pointer. 

Each cotftand sent to the control task will be followed by a 
response token and a test string pointer indicating success or 
failure upon trying to execute the cosaand. An ACK response 
will send a null pointer, which can be ignored; while a HACK 
response will send a pointer to an error eessage which should 
be presented to the user. 



B \ Task Support - Message Tokens, Load Block 
1 

2 \ Messages to control task: 



3 1 


CONSTANT 


STRT/STOP 


\ start or stop running* 


4 2 


CONSTANT 


FfiUS/CBKT 


\ 02u c e * r continue mnninn 


5 3 


CONSTANT 


ISTEP 


\ do just one step 


6 4 


COHSTAHT 


HLOAD 


\ load a aethod file 


7 5 


CONSTANT '.FNLOAD 


\ load a function file 


6 6 


CONSTANT 


CTLR3T 


\ reset the control task 


9 7 
IB 


CONSTANT 


1CTLCMDS 


\ nuiber of defined control cotasnds 



11 \ Responses froi control task: 

12 \ 42 CONSTANT ACK \ positive acknowlegeaent 

13 V 60 CONSTANT NAK \ error! 

14 118 123 THRU 
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Each f fifissage # consists of a 8 bit token, and a 16 bit string 
pointer. 

SEHO.KSS Kaits until the eessage buffer is eapty and puts the 
given eessage in the b«ffer. The eessage is taken by another 
task. 

6ETJ135 reioves any eessage in the given eessage buffer 

and eapties the buffer to allow another asssage to be placed. 
H56HAIT -aits for a *=ssags to appear and then returns it. 



8 \ Task Support - Task Coaaunication words 
1 

2 CREATE T0.CONTROL 3 ALLOT \ .coiiand to control task 

3 CREATE FROM C0KTR0L 3 ALLOT \ response froe control task 
4 

5 : SEKD.KS6 ( ptr n a — ) SE6IN PAUSE DUP C? 8= UNTIL 

6 SSAP OVER C! 1+ ! ; 
7 

8 : 6ETJISG ( a — ptr n) DUP >R I* 3 I C5 R> 3 -ERASE ; 



9 

The first byte of these message structures contains a eessage 18 : HSGHAIT (a — ptr n) BEGIN PAUSE DUP C3 UNTIL SET KSS 
code (8 if no aessage waiting), bytes 1,2 are pointer to string. 11 
TQ_C0NTRQL contains a cossand for control if byte 8 not 8. 12 : CTL ABORT 

FR0H.COHTRQL contains the response to a coaeand if byte B not 8. 13 I FROM CGNTROL SEND MSG ABORT ; 

14 
15 
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Ct contains screen offset for typing to screen. 

SCTAB positions CI to line, col of screen 

)CRT "types* text to the screen without using FORTH' s output 

routines, (useful for background tasks that dont have output 

routines defined.) Text is in inverse video. 
HERS saie as >CRT but in noraal video. 

(I Start nuaber foraatting for output. 
Foreat buffer is below the TOP user variable (ref FORTH scr 75) 
l> Finish nuiber fonatting, gets address, count. 
:83 Converts one deciaal digit and one iinutes digit <8B - 5?) 
(•ins) Foraats and prints the given value in the following 
foreat: 18:32 Used to display the tiee of day. 



119 

8 \ Task Support - Background task CRT printing 

1 VARIABLE STAT-ATTR HEX 788 STAT-ATTR ! DECIMAL 

2 J SCTAB ( I c — ) StfAP 82 t ♦ 21 CI ! ; 

3 : >TERH ( adr u - ) 

4 2t Cf 3 OVER CI ♦! DUP ROT * SKAP DO 

5 DUP C3 STAT-ATTR 3 OR I CRT5EG E! I* 

6 2 4L00P DROP ; 

7 HEX 

8 : UK0>TERH 

9 STAT-ATTR 9 >R 188 STAT-ATTR ! >TERH R) STAT-ATTR ! ; 
IB DECIMAL 

11 \ : SEXTAL 6 BASE ! ; 

12 : (I ( - ) TOP PTR ! ; 

13 : l> ( d — a c> 2DR0P PTR i TOP GVER - ; 

14 \ : :68 DECIMAL I SEXTAL I DECIMAL 58 HOLD ; 

15 \ : dins) < n ~ ) 8 (t :88 III) UN0>TER« ; 



EKrH.OK turns on both eiphasized and double-strike eodes. 
ErtPH_QFF resuies norial printing. 
KXTJTATE points to the opposite print tode routine. 
CUR. ATP. stores the current printing attribute. , 

NORM causes printing to be norial brightness, (the 256 is 

replaced by the address of BRIGHT below) 
BRIGHT causes printing to be etphasized and double struck. 
6iven the nest char's attribute, BRI6HTKESS «il flip the : 

printer into the proper print tode if the attribute is 

different fro* the previous char's. 
.CHP, prints a character, replacing a null with a blank. 
J.CHAR fetches the char and it's attribute froi the screen 

and prints it. Mote that screen teaory is in different segient 



8 V SNAPSHOT nords ° 275 826 

1 KS6 EKPH.OH 4 C, 27 C, 6? C, 27 C, 71 C f 

2 MSG EMPH.OFF 4 C, 27 C, 78 C, 27 C f 72 C, 

3 MSG UHDL.QN Z C f 27 C, 45 C, 4? C f 

4 KS6 UH0L.QFF 3 C, 27 C, 45 C, 4B C, 

5 VARIABLE CUP.ATR 

6 : NORK ( — ) 7 CUR.ATR ! 

7 : EMPH ( — ) 112 CUR.ATR 
6 : UKDL ( — 1 I CUR.ATR ! 

9 : BRIBHTKESS '( atr — J 
16 IF NORM DROP 

11 ELSE 112 - IF EMPH ELSE UHDL THEN THEH ; 

12 : .CHR ( c — ) WJP «- IF DROP 32 THEH EMIT 

13 : 3. CHAR I dadr — I 

14 E3 DUP 255 AND SWAP 256 M c atr) BRI6HTNESS .CHR ; 

15 46 LOAD 



EKPU.OFF UNDLJFF 
UNDL.OFF EHPH ON 
EHPH .OFF UNDL ON 
7 * 
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1LIHE prints the given line fro* screen tetory. Reverse video 
chars Hill be eiphasized. 

FULLSCR prints the entire screen. 



1LIKE (1 — 1 

NORM 80 I 2t DUP 168 ♦ SHAP DO I 11 5. CHAR 2 +LQ0P 

FULLSCR ( — ) 
25 8 DO CR i HIKE LOOP J 



0 \ SNAPSHOT - screen printing utility 
1 
2 
3 
4 
5 
6 
7 

tSSAFSHQT) is the cowand to be executed by the printer task to 8 : (SNAPSHOT) ACTIVATE FULLSCR STOP ; 

print the screen contents. 9 
SNAPSHOT sends the couand fro* the tercinal task to the printer 18 : SNAPSHOT TYPIST (SNAPSHOT) ; 
task. * U 

12 
13 
14 
15 
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This is the Function Editor that is used to edit user defined* 
functions written in FORTH. It can also be used to edit any 
genera! text file, including parameter files and Method files. 

This editor is based or. the FORTH Inc. fucntion icey editor found 
on Screen 72 of the Level 3 Source disk. It has been codified 
to use the output windows of sasple prep, and uses the prep 
file systes for all disk 1/0. 
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\ Text File Editor - Load Screen 



e 

1 

2 VARIABLE EDXIT \ set true to exit the editor 

3 • • 

4 74 4 +DP.IVE LOAD 

5 16 LOAD 

6 75 4 ♦DRIVE LOAD 

7 17 22 THRU 



9 
18 
11 
12 
13 
14 
IS 
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a \ File Editor - Function key table, cursor type 

1 CREATE 'KEYS 53 ALLOT 'KEYS 59 ERASE 

2 

3 : 'FUNCTION ( k - a) 5? - 2t 'KEYS ♦ : 

4 : :K ( k) : LAST 3 3 Cf A 2* SKAP 'FUNCTION ! ; 

5 : RKTIffi ( W SUP 5? 84 ttlTKIS IF 'RiiiCTIGK 3ESECUTE 
h ELSE DROP THEH ; 

7 

6 HEX CREATE CT 788? f ( cursor type) 
9 

16 CODE CHOICE CT 1 MOV 1 HI 1 XCKS 6 1 CT MOV NEXT 

11 RGP THEN ; 

12 : ♦CURSOR < a) 'CURSOR CT 3 cursor ; 

13 : -CURSOR ( a) 'CURSOR 768 cursor ; 

14 : BLINK 8SS3 CT ♦! } 
' 15 DECIMAL 
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150 is the only reference to disk I/O. le tessages whenever 
of BLOCK, but deals only with file relative block nuebers. 
LAD returns the address of the nth line of the current block, 
fetching it froe the disk if necessary, 

CLEL and any other ward which icdif ies the text on the screen . 
calls FUPDATE to aark the current disk block as acidified. 
The FUPBATED block will ultiiatly be written out to the disk 
*he* that block's buffer needs to be reused by BUFFER, either 
fey accessing other disk blocks, or by the file CLOSE operation 
when exiting the editor. 

The directory and disk allocation inforaation are updated when 
tbe file is dosed. 



8 \ File Editor - Line operations 

1 : LAD ( n - a) C/L I SCR 3 FBLOCK ♦ ; 

2 : CLAD ( - a) LIKE LAD ; 

3 : <ADSR ( - a) CLAD COL ♦ ; 

4 : COLS ( - n) C/L COL - ; : LINES ( - n) L/S LIKE - 

5 : CLRL ( n) DUP LAD C/L BLANK FUPDATE 8 SKAP (GOJ ; 

6 C/L SPACES ; :? ... : . : ... 

7 : .LINE <ADDR COLS >TYP£ 5 

6 : .BLOCK LINE LIKES DUP IF I* THEN 0 DO DUP 0 OVER (60) 

9 LAD C/L HYPE !♦ LOOP DROP J 

10 : xKL ( n 0) SSAP LAD DUP ROT ♦ C/L <CN0VE FUPDATE ; 

11 : KLDN < n) C/L xNL ; 

12 : HLUP ( n) C/L KESATE xhl ; 
13 

14 65 ; K -LINE <ADDR COLS 8LAKK FUPDATE COLS SPACES ; 

15 hb :K -BLOCK -LIKE LINE LIKES fl DO I* DUP CLFi LQGP DROP 



«AH ORIGINAL 
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ISTiaP is the uisk screen nuiber of the first helpscreen, ' . 

IHELPS is the nuiber of defined help screens. 

HELP ARRAY contains help screen nuibers for each aajor systei 

screen. The 8th entry is reserved for general systei help. 

Each of these help screens is a •chaptsr' heading, Kith further 

helpscreens available by using up or donn arroH keys. 
SUBJECT points to one of the chapter screens in HELP ARRAY. 
HELPSCR is the current help screen I. 
BLK>SCR displays a given disk block as text. 
HELPSUBJ selects a help chapter based on given screen nuiber. 
FIKDHELP gets current screen ar»d selects the right help chapter. 
+SUBJ advances +-n chapters frot current chapter and show help. 

Used for paging through help subjects. 
*HSCR advances *-n screens fro* current help screen. Used to 

"flip - pages of help screens. 



6 \ Help Screens - HaP Screen support 

1 310 CONSTANT ISTHELP 

2 9 CONSTANT f HELPS 

3 CREATE HELPARRAY 

4 6 ( reserved) C, 4 ( filer) C, 7, i print) C, 0 ( status) C, 

5 VARIABLE SUBJECT 
t> VARIABLE HELPSCR 

7 : BLDSCRK ( serf — ) CLS 8 6 TAB H 8 DO 18 TAB DUP 
B BLOCK I 64 I 4 64 >TYPE LOOP OROP ; 

9 : .HELP i — ) HELPSCR 5 ISTHELP <- BUOSCRN ; 
18 : HELPSUBJ ( serf — ) OOP SUBJECT ! HELPARRAY 4 C9 HELPSCR ! 

11 : FIKDHELP ( — ) SCRi HELPSUBJ ; 

12 \ ; *SUBJ ( n —J SUBJECT 3 + 8 KAX ISCRHS ? KIN HELPSUBJ, 

13 \ .HELP ; 

14 : 4HSCR ( n — I HELPSCR 3 ♦ 8 HAX IHELPS KIN HaPSCR ! .HaP 

15 286 187 THRU 
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H.HOKE returns user to original help screen keyed where he is. 

H_PSUP pages to next help subject 

H_PGOH • previous 

HJff pages to next help screen 

H.ON • previous ■ 

KELPKEYS is the function key table for help screens. 



\ Help - Function key table 

H.HQHE FINMLP .HELP ; 
: HPGUP 1 +SUBJ ; 
: H PGDN -1 +SUBJ ; 
H_UP I +HSCR ; 
H.DK -I 4H3CR ; 



e 
l 

2 
3 
4 

5 
6 
7 

8 CREATE KaPKEYS 

9 < 88) 



IB ( 84) 

11 ( 86) 

12 ( 80 

13 ( 98) 

14 ( 94) 

15 I 98) 



8 
8 

H.HOKE 
8 
9 
0 



8 
8 
8 
8 
6 



8 

e 

H.UP 
B 

8 



SNAPSHOT 
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HELP displays the helpscreen keyed what the user is doing 
(Hhat systei screen is displayed), allows pageing through 
the helpscreens, and Haits for undefined key before 
redisplaying current user screen. 



8 \ Help Screens - HELP 
1 
2 
3 
4 



HELPINFO SELECTION BO! 
1 Help Keys: 



h .' 
7 . 
8 
9 

IB : 

U 

12 

13 

14 

IS 



PgUP 
PgDK 
Hote 
PrtSc 
Esc 



;Paae " 
'Page ■ 
This Subj • 
Print Scrn ■ 
Exit Kelp • 



CR 
CR 
CR 
CR 



HELP i - ) 
STAT-OFF KEKU-QFF 

HaPIKT) KELPSHE BOX FIKDHELP .IELP 'FKETS ? 
['] KaPKEYS 'FKEYS ! 6E6IK KEY -FUNCTION? UNTIL 
•FKEYS ! BORK KIHDOK 
'SCREEN ? 8 'SCREEN ! EXECUTE : 



FORTH, Inc. Proprietarv 
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reTBoSY When true, the printer is busy and can't be used by, 
another task. 

(FPP.INT! prints all the blocks in the currently open file, 
(OPRINT) prints the disk directory on the printer. 

BG_PF;T sets the printer busy flag and executes the given 
print routine. It waits for printer idle before returning. 

f PRINT proipts the user for a filenaee, and sends it to the 
printer. 



DPP.1KT querys the user before printing the disk directory on 
the printer- The directory is printed in detailed for§at. 



0 \ Printer Screen - Load Block 

1 VARIABLE PRTBUSY 

2 : tFPRlHT) TYPIST ACTIVATE FLIST FALSE PftTBUSY • STOP ; 

3 : (DPfllKT) TYPIST ACTIVATE .DIR FALSE PRTBUSY ! STOP ; 
4 

5 : DO PRT < a — ) TRUE PRTBUSY' 1 . 

6 V Busy...' .I1S6 EXECUTE BEGIN . PAUSE PRTBUSY % 9= UKT1L 

7 V Done" ;M5S ; 
8 

9 : FPRIKT V Enter File to Print: • FILEHAHE IF I* FOPEK 
IB IF I" File not found- .ERROR EXIT THEN [•] (FPRIHTJ 
11 BO.PRT FCLOSt THEN ; 
12 

13 : DPRtNT V Print the disk directory? <Y/hT YES? IF 

14 DETAILS 3 1 DETAILS ! C'l (DPRIHT1 DO.PRT DETAILS \ THEK 

15 18? lie THRU 
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3 \ Printer - Kenu Labels 
1 

Here are the coflaand labels that appear on the printer screen. 2 : PDIRTIT .F* Directory" .H' Print File Directory* ; 

3 : PFILTXT .P File ' .H* Print a Disk File' ; 

4 

5 

Q 

7 

8 

9 
19 
11 
12 
13 
14 
15 
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0 \ Printer - Screen Definition 

1 : PRKT PROC STAT-GFF CLS ; 
2 

3 \ fi proc text char 
% . 4 DEFSCRK PRHT.SCR PRKT.PRQC 

5 I 8 ) ST/STP STRTTXT 8 

. 6(11 PS/CHT PAUSTXT 6 

1 7(2) DPRIKT PDIRTXT d 

8(3) FPftlKT PFILTXT i 

9(4) BELL EMPTYCL 8 

IB ( 5 ) BELL EHPTYCL 6 

U ( 6 ) BELL EKPTYtt 8 

12 C 7 1 HELP HELPTIT h 
13 
14 
15 



FJEL proipts the user for the filenaie to delete and deletes 'it 
if possible. 



f.FKT Mill forwt a diskette in drive 8. INITIALIZE actually 
fonats the disfe (erasing any data), IHITBAT initializes the 
block allocation table, and IHITBIR initializes the directory. 



8 \ Filer Screen - Load Block 
I 

2 : F DEL 

3 IF t 
4 



{-If File to Delete?: ■ FILENAME IF 1+ FDELETE 
File not Found* .ERROR THEN THEN /SCREEN ^EXECUTE 



S 35 4 +DRIVE LOAD 
6 
7 
8 
? 
18 
11 

12 7? B9 THRU 

13 EXIT 
14 
IS 



\ Load dish initi'aliration 



F.FHT (-1 f* Erase all data on diskette? (Y/Kl* YES? IF 
V Insert 4 diskette in drive 8. Press return nhen ready* 
KEYPROHPT 13 = IF V FQRKATTIHS...* .HSG INITIALIZE 
IHITBAT IMITDIR FLUSH f Done' .MS6 THEN THEN : 
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8 

I 

2 ; 

3 : 

4 : 

5 : 
6 

7 

8 

9 
18 
11 
12 
13 
14 
IS 



\ Filer - Henu Labels 

RNHTXT .F* Renaae * «H* Change a File Nate' ? . 
CPYTU .F* Copy ' .H' Copy One File to Another- ; 
DELTXT .F' Delete * .H' Delete a File* ; 
FRKTTXT .F" Foriat • .H" Kake a Blank Disk for Files" j 
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8 \ Filer - Screen Definition 
The filer screen displays the disk directory. I : FILER_PP.DC 



2 3TAT-CFF CLS 1 DETAILS ! SKOSDIR 8 DETAILS 
3 

4 \ ft proc text char 

5 DEFSCRN FILER SCR FILER PROC 
6(8) ST/STP STRTTXT 8 

7 € I I PS/CHT PAUSTXT 8 

8(2) BELL RHWTXT r 

9(3) BELL CPYTXT c 

IB ( 4 ) F.DEL DELTXT d 

11 I 3 ) F.FHT FRKTTXT f 

12 ( 6 ) BELL EHPTYCL 8 

13 ( 7 ) HELP HELPTXT h 
14 

15 



FORTH, Inc. Proprietary 



01 JAN 1900 00:43 \ Sample Prep Ver 0.1 



6 \ Status Screen - Load Block 
1 

S.FHLOAD causes the control task to load a function file, 2 : SSTEP C I HULL ISTEP TO.CQKTfiOL SEK0.MS5 ; 

It proopts the user for a filenase and sends a load coiiand and 3 

the filename pointer to the control task. 4 : S/HLOAC ( - ) I" File to Load?: ■ FILEKAKE IF U 

3 FKLOAD TO.CQKTROL SEKD.KSB THEK ; 
• e ' 

7 73 74 THRU. 

8 EXIT 
? 

ie 
u 

12 
13 
14 
15 
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8 \ Status - Hsnu label procedures 

1 : PRHTTIT .F* Print - 

2 .H' Print Utility* ; 

3 : KTHDTIT .F 1 Hethods * 

4 .K - Create or Kodify a Kethod* ; 

5 : LQABTXT .FV Load * 

6 .H' Load a Method to Run* ; 

7 : SYSTXT •F 1 Systea ■ 

8 .H* Access to eore Systea Functions" 5 

9 : FILETXT .F" Filer ' ,K* Kanaoe files* ; 

10 : 1STPTXT .F* IStep ■ .H' Step Through the Procedure 

11 : EBTRTXT .F* Editor * .H* Edit Text Files* ; 

12 EXIT 
13 

14 
15 
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8 \ Status - Screen Definition 

1 : STATJ>R0C 

2 STAT-OH? HOT 

3 IF CLS STAT-OH SThTUS-BKG THEN ; 

4 : - 



5 \ ff 


proc 


text 


char 


6 DEFSCaK STAT SCR 


STAT.FR 


GC 


7(8) 


ST/STP 


STRTTXT 


8 


8(1) 


PS/CHT 


PAUSTIT 


0 


9(2) 


SSTEP 


1STPTXT 


1 


10 ( 3 1 


SJNLOA0 


LOADTXT 


1 


11 ( 4 ) 


FILER SCIl 


FILETXT 


f 


12 ( 5 ) 


prktJcr 


PPJffTXT 


P 


13 ( 6 ) 


FEDIT 


EDTRTXT 


e 


14 ( 7 ) 


HELP 


KELPTIT 


h 



15 



CnC'TW. Tnr Pr-nrvri of- ^>-w 
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PREVSCR puts the link to the previous screen into a screen 
descriptor. This used after the 2 screens are defined to 
resolve the forward references. PREVSCR THIS PREV 

This screen resolves the forward references in the screen link 
pointers. Load this block after all the screens have been 
loaded. Add the links for all screens that are defined in 
the systei. These links ere followed when the user exits 
a screen. The links point to the screen to 'return* to. 
Mote that the Status screen is the note screen, and points 
to itself. 



0 \ Screen Support - Resolve forward references in Screens 



1 
2 
3 
4 

e 
J 

6 

7 
8 
9 

16 
11 
12 
13 
14 
15 



PREVSCR ( — ) ' 2* 1 SWAP 



PREVSCR 
PREVSCR 
PREVSCR 



this screen 
STAT SCR 
FILER.SCR 
PRNT SCR 



FORGET PREVSCR 
EXIT 



previous screen. 
STAT SCR 
STAT SCR 
STAT SCR 
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8 

1 
2 
3 
4 
5 
b 
7 
8 
9 

IB 
il 
12 
13 
14 
15 



407 



86 



8 
1 

2 

3 
4 
5 
6 
7 



IB 

il 
12 
13 
14 
15 
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B \ Screen Support - Fake screen displays tt TEKPOKARY tt 
1 

These definitions are being teiporarily used to display 2 328 CONSTANT DUMHYSCREENS 

siaulstcd 'screens' until actual screens are built. 3 DlffiMYSCREEHS CONSTANT STS8LK 

4 DUKKYSCREEKS I* C0K3TAKT MTHDBUT . 

5 DUttftYSCREENS 2+ C0N3TAHT PRTRBLK 

6 DUKKYSCREENS 3 ♦ CONSTANT SYTMBLK 

7 WIIWYSCREEHS .4 ♦ CONSTANT FLRBLK 
B 

9 : P5TATS STSBIK BLK>SCRN ; \ fake status 
IB : PHTHB HTH23LK BL103CRH ; \ ■ eethod 

11 : PRPRT PRTRBLK BLQSCRN ; V ■ print 

12 : PSYST SYTMBLK BLK>SCRH ; \ ■ systea 

13 : PF1LR FLRBLK 8LDSCRN i \ * filer 
14 
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CKD is a function key routine that will accept a FORTH couand 
fro* the keyboard and execute it, returning hack to PREP. 
Characters are echoed on the inputline (line 25) 



B 
1 

2 : 

3 

4 

5 

6 

7 

6 

9 
10 
11 
12 
13 
14 
15 



\ Screen Support - Couand Interpreter 



m i — ) 

CLRRSG 

8 24 88 3 XIMDG" 
QUERY INTERPRET 



(PASE) 8 e TAB 



g the couand selector across the eenu. 
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8 

1 HEX CODE (NAT) ( attribute n a - I 
NAT is used to eodity the attribute of screen text without 2 II FOP I POP 2 PGP 
•edifying the contents of the charac 3 I PUSH K I MOV 

4 ' 'DISPLAY LOA 8 ES LSS 

5 BES1N 

6 26 C, ( ES:) LOBS 

7 ' 2 HI B HI MOV B STOS 

8 LOOP 

9 8 IS SSB 0 ES LSS I POP 
18 KEIT DECIMAL 

U : NAT ( attribute Inl coll n • ) 

12 ROT 88 t ROT ♦ 2t (NAT) J 

13 

14 

15 
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8 \ Screen support - ST/STP/PAUS/COHT and cotion Henu Labels 

Use EHPTYCL far any undefined eenu field. • i s EHPTYCL .F* ' .H* a ; \ eipty cell * 
HELPTXT shows the help cotaand Held. 2 

3 : HELPTXT .F' HELP * .H* D 
KHICHSTATP returns status of method 8*idle. !=pause, 2*running 4 

5 : STRTTXT { - ) KHICH5TATE OUP LASTSTATE ! 

6 IF .F* STOP * .H" Stop Running 1 
STRTTXT shews the START or STOP coniand depending on current run 7 ELSE -.F' START ■ 

sUtus - .8 .H* Start Preparation Procedure' THEM ; 

9 

10 : PAUSTIT ( - ) HHICH3TATE OUP LASTSTATE ! 

PAU3ETXT shows PAUSE, blank or CONTINUE tenu cuuand depending 11 8 CASE IF EHPTYCL 

on run status. 12 ELSE 1 CASE IF ,F' PAUSE - 

13 .H 1 Suspend procedure operation teaporarily' 

14 ELSE DROP .F* CONTINUE 1 

15 .H" Continue running procedure" THEN THEN ; 
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XRST is used after expect. Siailar to RESET in FORTH which 
is un-findable. 

INPUTTXT gets a text string fro* the keyboard and returns the 
address of the counted string (count in first byte). 

TXTFRunrT is yiyen the atliiiesa of a counted string to type as a 
user proept an the inputline." The address of the input string, 
is returned. 

KEYPROitPT types a given proapt string on the tessage line- and 
anaits a keystroke. It clears the proipt and returns the key. 

YES? returns true if user typed a 9 V or 'y'f false otherwise. 

•ERROR types an error string (counted) on the tessage line. 
.M36 types a (counted) iessage string. 
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8 \ Screen Support - User Input / Output Sards 
1 

2 s XRST 0 BLK ! 0 >IH ! CKT C? CMT 1+ C! : 
3 

4 : IKPUTTXT < — a) PAD 72 BLANK S3 3 83 t EXPECT XRST 

5 1 KGRD DUP 1+ PAD SNAP <CKGVE PAD ; 

6 : TXTFROKFT ( ap — ai ) MNFU7LINE COUNT UYFE ( proipt) 

7 IKPlJTTXT 24 ICLIKE j 

8 : KEYPROilPT ( a — c ) HNPUTLINE COUNT ITYPE KEY 

9 24 ICLIHE ; 

18 : YES? < a — t) KEYPROitPT DUP 121 = SNAP 89 = OR ; 
11 

12 : CLRK3S ( - ) KSSOH? i IF 28 ICLIKE G liSSGH? ! THEN ; 

13 : .HS6 ( « - I CLRK5G >«S6LINE 89 SWAP CENTERED 1 KS6GK? ! ; 

14 : .ERROR ( a - ) ,hSS ; 
15 
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SLEN? Returns true if the nate length is 8. 

ESC? Returns true if the escape key was the last char typed. 

LEGAL? Returns true if all characters in nate are legal. 

FILENAME prompts the user with the given string, and processes 
his input. If return is typed with no chars, or the esc key 
is typed with any input, false and no input is returned to 
caller. If any non-legal characters are found, an error isg 
is displayed and user is re-proapted for input. A legal input 
will return the address of the counted input string and true. 



8 \ Screens Support - Input Words 
1 HEX BCo CONSTANT ESC 
2: GLEN? (a— t) 

3 : ESC? < a — t ) 

4 2 LEGAL? ( a — t ) 



W 8 s . ; 

DUP C3 ♦ C3 ESC * 5 
TRUE SNAP COUNT OVER 



+ SKAP ( t 



5 DO I C3 21 7F NITHIN NOT IF DROP FALSE . THEN 
6 

7 : FILENAME ( a — 'ni t ! f ) 

8 BEGIN 

9 OUP TXTPROKPT 
18 DUP 6LEN? IF 

11 OUP ESC? IF 

12 DUP LEGAL? IF 

13 DROP < input) V Illegal nate! Retype' .ERROR BELL 

14 AGAIN ; 

15 DECIMAL 
t 



a+n a ) 
LOOP 



2DR0P FALSE EXIT THEN 
2DR0P FALSE EXIT THEN 
SNAP DROP TRUE EXIT - THEN 
V Illegal nate! Retype' .ERROR 
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6 \ Screen Support - Status Header 
1 

2 : .TITLE 

3 18 28 TAB SP 10,888 SAMPLE PREPARATIOH SYSTEM 

4 12 34 TAB VER 8-1" ■ " 

5 24 32 TAB hit any key!' KEY ; • ■ n ' : ' 

6 : Tl« . r . - .- -.-r 

7 : .BANNER ^ 8 TAB v - ->-' „ 

8 -UNDERLINE" 4 SPACES ." Status:" ^ - 4 

9 ^UNDERLINE READY " 

Bra m u ■ 10 V *~ UND ^ H 2 & SPACES TODAY a .DATE - 

BANKER display, the status the status header on the top 2 lines I! \ I SPACES HIKE .THE 5 SPACES 



.TITLE prints the systee title on the top line of the screen. 



.STATUS prints the status line on line 2 of the screen. The 
contents of the fields will be updated by the STATUS task; 



of the screen. 



12 UNDERLINE 38 SPACES Method: No Method 

■ 13 UKDERLIHE S SPACES 

14 " NORMAL ; 
IS 
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8 \ Screen Support - Menu Bar Screen Layout 



KID prints the horizontal line for I cell. 
1B0XTQP draws the top of one cell. 
1BCXMIB draws the ciddle line of a box.- 
1B0XBTK safces the botto* line o? a box. - 4 
TQPP draws 7 box tops. * w** ; 
BOTK • bottoas 
CVDRS • Eddies 
-BAR prints the whole aenu bar. ^ 



.FRAME builds the sain screen outline: the status header and 
and an espty eenu bar. s?*. i^iu : a 



1 
2 : 
3 



'4 
- : •' 5 
6 
7 
8 

18 
II 

■ 12^ < 

-14 - :* 

15 



.FRAME ( — ) 
PASE .TITLE PAGE .BANKER 
1 8 TAB 168 TOP ! ; - 
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CBD is a function key routine that will acceot a FORTH coisand 
fro* the keyboard and execute it;- returning back to PREP. — 
Characters are echoed on the inputline (line 25) 

)C0HTR0L sends a coaeand code and V couand string pointer "ti- 
the control task and waits for an acknawle^eiint ■essaoe.' " 
Displays an error eessage if not a positive art.*-* 1 ~ 

MTHDCTL sends a couand to the control tu^ind redisplays the 
start/stop and pause/continue eenu fields to show new -couand 
selections. ( The couands depend on the current run status) 

ST/STP is the start/stop tenu couand, either starts or stops a 
tethod. 

PS/CKT panws a running tethod or cofitinues a paused eethod. 



--0 ^ \ Screen support - ST/SWPAUS/CONT ; arid coubn Menu Labels' 
1 \ : >CQKTRGL (an — ) TO CONTROL SEND MSB 
- 2 \ ; ' FROM XONTROL 0 MS6KAIT j ACK = NOT IF .ERROR ELSE DROP THEN 

3 ■ 1 ' :iiV ' • I.V-; 

Ti 4 : ST/STP ( - ) NULL J STRT/STOP TOCONTRCL' SEND MSB • 

S : PS/CKT ( - ) KULL FAUS/CONT TO CONTROL SENo'mSB f ' " : 

- $ .. v.'-r : v:; c ;: ;v.j^«">u- .*v*i .\. >-";■>■;■*: .- 

" 7 :>ICHSTATE' ( — n ) RUN STATUS 9 * <' ^ -^.v 

8 [ RUNBIT PAUSEBIT OR 1 LITERAL AND ^ 

9 : SH0-C0NTR0L ( - ) v rJ * 1 - ; 
: 18 ^DUP Fn« c NOT ' : - • H< 

11 '■ IF 8 CELLFLB ! THEN .CELL 1 CELLFLB ! : 

12 VARIABLE LASTSTATE : 

13 : NEN3TATE? ( - ) 

14 HHICHSTATE LASTSTATE 5 = NOT KSNU-OK? 9 AKD 

15 IF 8 SH0-CONTR0L 1 SH0-C0HTR0L THEN ; 
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/CELL Size of ttenu Bar cell in bytes. 

•JAR is the line nuiber of the tenu bar. 

>CELL positions cursor at beginning of ienu cell for the given 

function, . 

.CELL prints the label for a eenu cell by executing the 2nd 
address in the function table. 
K3E0K H56GFF turn the selection intonation on and off. 
CELLOFF prints the ceil label with norial video (white on 
black). 

CELLOH prints the cell label in reverse video. 
.MENU fills the eenu bar outline with the text fields defined 
in the screen pointed to by 'SCREEH. 



8 \ Screen Support - Kenu Cells and Labels 

1 : >CELL ( n - It cl ) /CaL t 'BAR SNAP ; 

2 : .CELL ( n - ) OUP >CELL ITAB >FUKCT 2* 3EXECUTE 5 
*3 : .BAR 'BAR 1- 8 ITAB 79 tSPACES 'BAR 8 tTAB 79 tSPACES 

4 . • 

5 : CELLOFF I - ) 

b C HEX 3 ICfl [ DECIMAL 1 Fn« >CELL /CELL 1- NAT ; 

7 : .MENU ( - ) 

8 1 HEM-ON?- ! 

9 UNDERLINE .BAR NGRKAL 
IB 8 CELLFLB ! 8 0 00 

U 1 Fn«3 ■ IF 1 CELLFLB ! THEH 
12 I .CELL 8 CELLFLB! 
S3 LOOP 1 CELLFL6 ! 5 

14 : HEW-OFF I - ) 

15 8 KEHU-QH? 1 .BAR 5 
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HEnSCREES switches the display to a new screen. 



tSCRltt is incretented by- each new screen definition and used as 

the 'screen ID. Contains the nuafaer of defined screens. 
The screen ID is used by HELP to display the right help screen. 
DEFSCEK is a cotpiler nord that creates a Screen data structure. 
The structure consists of an index (8.. 7) of the currently 
selected function; a pointer to the previous screen; a pointer 
to a procedure to execute when this screen is selected and dis- 
played; a unique screen ID nueber (screens are numbered se- 
quentially froa 1 to n as they are defined); and 8 function and 
8 function entries, each. containing three entries: the address 
of a function to execute, the address of a ienu label displayer, 
and a couand character that will execute the function. 
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3 \ Screen Support - Screen Data Structure Definition 
I 

2 : HEKSCREEH ( 'screen — ) 

3 OUP 'SCREEN 3 * HOT 

4 IF OUP 'SCREEN i \ point to new screen 

5 .KENU \ print the new tenu 

6 4 + ^EXECUTE \ execute the screen proc 

7 ELSE DROP TKEH. ; 
8 

9 VARIABLE ISCRHS \ nuiber of defined screens . 
IB 

11 : OEFSCRH ( — > CREATE 8 , ( fund) 

12 8 f ( link is filled in later) ' , ( screen proc) 

13 I ISCRHS +! tSCRKS 3 C, ( screen ID«> . 

14 8 8 DO CCOHPILE] ( 9 , ( function) • , ( text) ASCIK 

15 LOOP DOES) ( — 1 HEKSCREEH ; 
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DO FUNC uses given index to fetch function pointer and executes 
it. 

OFUHC toves the highlighted selector left or right on the tenur 

bar. *n is right, -n is left. 
♦FUHC toves the selector* to the right. The selector wraps 

around if in the rightmost position. * r l r 
-FUHC toves the selector to the left. The selector toves to the 

righttost position if on position 8. : ... 
SELECT executes the function pointed to by the current, function 

index in the current Screen pointed to by 'SCREEH. 
DESELECT exits the current tenu and goes to the previously 

selected tenu. 

CHAR/FH cotpares a given character to the function characters 
in the current screen and executes the function it tatches. 



\ Screen Support - Menu cell selection words 
) CLRffSB .. )FUHCT 9EIECUTE 



DO.FUHC 
OFUHC 
CLRK56 
♦FUNC 
HWC 
SELECT 
DESELECT 



n 

n — ) 
CELLOFF 

— ) 

— ) 

— ) 
[ — ) 



FnH 7 AKD OUP Fnl! ..CELL 
1 OFUHC ; , 
-1 OFUHC : ; ; 4 ;. 
FnH DO FUNC ; 

CLRJ1SS 'SCRH 2t 3 . .. HEKSCREEN 



CHAR>FH ( c - 
IF I DO FUKC 



- ) 8 8 DO OUP I >FUHCT 4 ♦ W « 
LEAVE THEK LOOP DROP ; 



3-7 8 
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This aodule contains the definitions that lanage the Saiple 
Prep screens. 



6 \ Satpie Prep Screen Support - toad Block 
1 

2 71 LOAD \ Words for changing attributes directly 

3 58 5? THRU \ Screen Maintenance 

4 67 6B THRO \ user input /output . 

5 63 64 THRU \ Screen Haintenance ' 

6 70 LOAD \ Couand Interpreter 

7 65 66 THRU . \ ST/STP/PAUS/COKT and coaian tenu Labels 

8 132 139 THRU " \ Status screen background 
185 LOAD \ help screen support 
69 LOAD \ fake screen displays it TEMPORARY u 
15 LOAD \ editor 
78 LOAD \ filer screen 
188 LOAD \ print screen 
72 LOAD \ status screen 

84 LOAD \ resolve forward references in screens 



9 

16 
11 
12 
13 
14 
15 
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Pointer to current Screen data structure. 

'SCRK returns the address of the current screen data structure* 
Fnl returns the address of selected function nutber. 
Fn*a returns the currently selected function nucber, 
py.c i c^nroe the currsnt function flush sr > 
SCSI sets the address of the current screen ID niwber. 
/FUNCT returns the address of an entry in the current screen 
table '.pointed to by 'SCREEN) for the given function nutber. 

FCHAR returns the CGuand character for the given function 
nusber fros the current screen. 



0 \ Screen Support - basic tools 

1 VARIABLE 'SCREEN VARIABLE CELLFLS VARIABLE HEKU-OK? 

2 16 CONSTANT /CELL 23 CONSTANT 'BAR - 



4 : >IKPUTLINE 24 0 UAB 



)HLPLINE 22 IB tTAB ? 



: >KSGLINE 28 8 (TAB ; VARIABLE HSEOK? 



6 
7 
8 
9 

18 
11 
12 
13 
14 
15 



•SCRN 

Fnl 

FaN 

Fnl! 

SCRt 

>FUNCT 



— a I 

— n ) 
n — ) 

— n ) 

( n — 



5 t ( /entry) 7 
FCKAR (ti-c) 



•SCREEN 3 
•SCRN i 
'SCRN 3- ; 
•SCRN i ; 
•SCRN 6 ♦ 
a ) 

♦ ( header) 



•SCRK ♦ 



>FUNCT 4 ♦ Ca ; 
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K3SFL6 if true, disolay selection eessage on line 23. 
>iiS6Lii& positions cursor at coluen 8 of the help line. 
MKPUTLIKE puts the cursor on the last line of the screen. 
LMARSK types spaces to center following text.; < ; • 
PJiAP.GK fills reest of line with spaces to clear old text on line 
CENTERED types the text at address V centered in a field sz 

chars wide. .. :J . : 

.KEY prints the coseand char of the current function. 



dotH a prints text centered on Message line. Refer to FORTH* s 
dot" definition on screen 66. 
F" coipiles a string to be printed outside the window. 
•C* cotpiles a string centered on an 88 char line. 
.H* coipiles a string to be printed centered on the proept line 
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\ Screen Support - Message and Proipt Fomatting 

LKARSH (ssa — ) C9 - 2/ tSPACES 

RNAREN ( sz a — ) B - BUP 2/ - tSPACES ; 

CENTERED ( sz a — 1 20UP LHAR6N DUP COUNT tTYPE RKARBN 

dotF' ( — ) I ?W COUNT 
CELLFLS a IF INVERSE ELSE UNDERLINE THEN 
ITYPE NORMAL J 

dotC 4 ( — I 88 1 7R9 CENTERED ; 
dotH - ( — ) 1 ?f» CELLFLS 9 

IF >HLPLINE 68 SNAP UNDERLINE CENTERED NORMAL 
aSE DROP THEN ; 
.F' COMPILE dotF € 34 STRIKB ; 1MME01ATE 
.C 1 COMPILE dotC 34 STRINS ; IMMEDIATE 
; .H- COMPILE dottT 34 STRIN6 ; IMMEDIATE 



rnetu 



Tr%i- 
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PS JO finds the nth printable directory entry. Used for 
•pageing' the directory listing on the screen. 

„ K contains offset to the first valid directory entry to print. 
KOHE If true, no entries were printed. 
IDIR) prints n valid directory entrys starting at P6 in the 
foraat selected by DETAILS. 



.DIR prints every directory entry (TESTING). 



e \ File Systei - Directory Display 

1 : PS TO ( n — fll U -1 SWAP 9 DO 

2 1+ ( ptr) DUP 'ENTRY C3 IF 1 ELSE % THEN 

3 OVER RAIFILES I- = IF LEAVE THEN +L00P ; 
4 

5 VARIABLE PG 

6 VARIABLE NONE 

7 : (DIP.) in 1 ) .HEADER TRUE NONE ! PS 3 PGJO SKAP 8 DQ- 

8 DUP KAXFILES * IF LEAVE 0 ELSE DUP 'ENTRY C3 IF 

9 FALSE NONE ! CR DUP .ENTRY I ELSE 0 THEN 
19 SWAP 1+ SWAP THEN «L00P DROP ; 

11 

12 : DIR • HEADER KAXFILES 0 00 I 8> I 16 AGO 8= AND IF KEY DROP 

13 THEN 

14 CR I . I .ENTRY LOOP ; 
15 



pgup decrements page by the current «indon height. 

pgdn advances Pb" oy ttindou size if there is lore to display. 



SHOKDIR takes a window box on the screen, displays .the Hies, 
and allows pageing up or down in the list until a key is 
pressed. 
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8 \ File Systei - Directory Display 
I 

2 H2 CONSTANT UPKEY 

3 158 CONSTANT DNKEY 
4 

5 : pgup ( - ) PG 3 WEIGHT 3 - 8 KAX PB ! ; 

6 : pgdn ( - ) NONE 9 8= IF PG 3 KHEIGHT 9 + KAXFILES HXK 

7 PG ! THEK ; 
6 

9 : SKKOlfi ( - ) 8 PG ! DETAILS 3 IF HELPS1ZE 
IB ELSE SELECTION THEN BOX 

11 BEGIN CLS 8 8 TAB KHEIGHT 3 (DIR) KEY DU? UPKEY = IF 

12 DROP pgup FALSE ELSE DNKEY * IF pgdn FALSE ELSE TRUE 

13 THEN 'THEN UNTIL HORK HIKDGW ; 
14 

15 
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F/P number of files printed per page. 

.DIR is used to print a disk directory on the printer. 
It advances to the top of a page, prints a header and prints 
up to F/P file entries. 



6 \ File Systei - Directory Printing 

1 53 CONSTANT F/P 

2 

3 : .DIR ( — ) 

4 8 ( entries printed) KAXFILES 8 DO 

5 DUP 6- IF PAGE .HEADER CR !♦ THEN 

6 I 'ENTRY C3 IF CR 1 .ENTRY 1+ THEN 

7 DUP F/P * IF DROP 8 THEN 

8 LOOP DROP 

9 CR CR FREECNT 22 SPACES . Free blocks* CR 
18 

11 
12 
!3 
14 
15 
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HARE gets the filenaie froa the input and puts it in PAD. 
MAKE «ii es a new file and leaves it open, /HAKE rrp 

OPEN opens an existing file lor access- 'OPEN ill* 

CLOSE closes file access, updating file inforestion. •CLOSE" 

DELETE removes a file fros the directory. No file §ay be open 
Hhefl this cosaand is used. 'DELETE XXX* 



e \ File Systei - User file coitands 
1 

2 : NAME ( — a ) 32 TEXT PAD ; 

3 ( EXIT ) \ TESTIK6 WORDS 

4 : MAM i — ) NAME FCREATE W8> IF 1 * IF 

5 .* already exists - ELSE .* directory lull* THEN 

6 ELSE DROP THEN ; 

7 : OPEN ( ~. ) NAME FOPEK 8> IF .* can't find* THEN r 

8 : CLOSE ( — ) FCLD5E J 

9 : DELETE ( — J KAHE FDELETE 8< IF .* can't find' THEN ; 
16 

U EXIT 

12 : HULT-LOAD 

13 >IN 2* >R >R B >IN 2! 

14 STATE a IF 1 ELSE INTERPRET THEN 

15 R> R> >IK 2! DECIMAL ; 
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(FLIST) types the contents of the given block fro» the current 
open file. 



FLIST types ali tne oIqcks in tne current open file. 
(LQAS1 causes FORTH to interpret fros the disk file ( this is 
the nortal loading process). Nested file loads are ok. 



INCLUDE can be used in a source code file to cause another file 
to be -included* or loaded. Use: INCLUDE XYZZY 



e 

1 : 

2 

3 

4 

5 

6 : 



9 
IB 
11 
12 
13 
14 
15 



\ File Systec - Utilities 
(FLIST) ( n) -OPEN? BCT 9 KIN 8 MAX 

File: 1 FILEKTRY NMLEN TYPE Block: ■ 
DUP . 16 6 DO CR I 2 U.fi SPACE DUP FBLQCK 
I 64 I ♦ 64 >TYP£ LOOP CR 
EOF 3 IF END OF FILE' THEN SCR ! ; 

FLIST ( -) BCT a 8 00 1 3 MOD 8= IF PAGE CR CR CR CR THEN 
I (FLIST) CR CR CR LOOP ; 

OFFSET a >R B OFFSET ! . 
BCT 5 >R EOF a >R UPDATED 3 >R -1 Fl 
8 DO I nthBLK LOAD LOOP 
THEN 



(LOAD) ( 'ni — ) 
F* a >R FPTR 9 >R 
FOPEN 8= IF BCT 5 
ELSE 1 LGADERR ♦! 



R> UPDATED • 
R> OFFSET ! 



R> EOF ! R> BCT ! R> FPTR ! R> Fl ! 



INCLUDE ( - ) NAME (LOAD) j 



42: 
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These word print the contents of a directory entry. 



.EKTRY prints the directory entry for Hie n on one line. 
Feriat of directory depends on DETAILS. 

•HEADER prints a heading for the directory cociand. 



8 
1 
2 

3 
4 

c 

J 
6 
7 
8 
9 
18 
U 
12 
13 
14 
15 



\ File Systec - Directory Support 
.NAME ( ft) 'EKTRY NMLEN TYPE 
'ENTRY 
'ENTRY 
'ENTRY 
'EKTRY 
'ENTRY 
'ENTRY 

.FTYFE ( fl) 'ENTRY 



.IBLKS ( fl) 
.8LK1 ( fl) 
.CROT 
•CTIHE 
•HDATE 
.KTIKE 



( fl) 
( fl) 
( fl) 
( fl) 



IBLKS ♦ 3 4 U.R 4 SPACES 
BLK1 ♦ a 4 U.R } 
CRDATE ♦ 9 .DATE 3 SPACES 
CRTIKE ♦ a .TIKE ; 
KDATE* a .DATE SPACE 
KTIME ♦ 9 .TIME 
FTYFE ♦ a 4 U.R SPACE ; 



DUP >R .NAME 
.IBLKS I ;CRDT 



.ENTRY ( fl) 
I .3LK1 I 
R> DROP ; 

.HEADER / Files:" DETAILS a IF 
Type Blkl Iblks" A SPACES 
KodifieoV THEN : 



DETAILS a 
I .HDATE 



IF SPACE I .FTYPE 
I .HTIME THEN 



5 SPACES 
Created:' 



t> SPACES 
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SCANDIR takes a pointer to a filenaee and searches lor a aatch - 
to that naie in the directory. If found, it returns a valid 
file nuaber, else it returns -1. 

6ETENTRY returns the next eepty directory entry for a new file. 



FOUND is used after SCANDIR to test for finding a filename! 
FILEHTPY returns the address of the directory entry for the file 
ir. Fl. 

JNITFILE copies the file pointer and block count into user 
variables and sets the indicator to "file not iodified\ 



0 275 326 
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B \ File Systet - Directory accessing 

1 : SCANDIR ( 'naie ft ) >R -I KAIFILES 8 DQ 

2 I 'ENTRY HMLEN J MIEN -MATCH 8= IF 2DR0P I LEAVE 

3 ELSE DROP THEN LOOP R> DROP. ; 
4 

5 : 6ETENTRY ( — ft 1 -1 HAIFILES 8 DQ .1 'ENTRY C3 8* 

6 IF DROP. I LEAVE THEN LOOP J 
7 

8 : FOUND ( ft — t 1 iff!) J 

9 : FILENTRY ( — a ) Fl 3 'ENTRY ; 
18 

11 : 1NITFILE ( ~ ) FILENTRY OUP IBLKS ♦ 3 BCT ! 

12 BUM ♦ 3 FPTR ! 8 UPDATED ! ; 
13 

14 
13 
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MAKEFILE constructs the directory* entry for a nw file. If 1 
allocates one block to the new file and sets the tiie and date, 2 
of creation and iodification. The directory entry Mill be 3 
written to the disk, 4 



FCREATE Creates a new file if it doesnt already exist. The 
ne* file is opened for reading/writing. It returns 6 iS 
successful I, I if the file already exists, and 2 if the" 
director/ is full. 



6 
7 
8 
9 
18 
11 
12 
13 
14 
15 



\ File Systes - File creation 

MAKEFILE ( 'naae fl - ) FREE3LK -1 OVER nBAT! SNAP 'ENTRY 
DUP >R ENTRYLEN 6 FILL I BLK1 + ! I NHLEN HOVE 
I I IBLKS ♦ ! 3TIKE DUP I CRTIME * ! I KTIHE ♦ ! 
TODAY 3 DUP I CRDATE + ! I ilDATE ♦ ! 8 R> FTYPE ♦ ! 
UPDATE ; 



FCREATE ( 'naie — t ) 
OPEN? DUP SCANDIR FOUND NOT IF 
GETENTRY DUP 1* 8> IF 

GET BAT SKAP OVER I fl 



'na f II MAKEFILE 



Fl 

ass 

THEN 
ELSE DROP 
THEN : 



INITFILE 
2 



I UPDATED 



8 
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FOPEN opens an existing file for access. It sets Fl to the 
file's directory index, and puts IBLKS into BCT and BLK1 into 
FPTR. Returns 8 if successful I, 1 if file does not exist. 

FCIGSE Krites out the open file's new block count if the file 
has been todified, and updates the todification date and tiie. 



FEELETE retaves the given file frot the directory (by putting a 
8 in the first filenaie char), and releases it's blocks for 
other files to use. 



8 
1 

2 : 

3 

4 

5 : 
& 
7 
8 

? : 
18 
11 
12 
13 
14 
15 



\ File Systei - Prcgrai access to files 

FOPEN ( 'naee — t ) OPEN? SCANDIR OUP FOUND IF Fl ! 
GETJAT INITFILE 8 ELSE DROP 1 THEN ; 

FCLOSE ( — ) -OPEN? UPDATED 9 8> IF SAVE BAT FILENTRY 
BCT 3 OVER IBLKS * ! TODAY 3 OVER hUATE ♦ ! 3TIHE SXfiP 
KTIHE 4 ! 8 UPDATED ! UPDATE FLUSH THEN -1 Fl ! ; 

FQELETE I 'naie — t ) OPEN? SCANDIR DUP FOUND IF 6ET BAT 
'ENTRY DUP 8 OVER C! UPDATE BLKl ♦ 9 BEGIN DUP VBLK? 
DUP nBAT3 8 ROT nBAT! DUP -1 » UNTIL 
2DR0P 8 SAVE BAT FLUSH THEN : 
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FREECKT returns the nuiber of free blocks left on the disk. 
.BAT JJrints the block allocation table. 

Ll?ffS prints the block nuebers that belong to the current file. 



0 

1 
2 
3 
4 
5 
6 

7 : 

6 

? 
13 
11 
12 
13 
14 
15 



\ File Systet - Testing words 

FREECKT ( — n 1 B KAXBUS 1STBLK DO 
I nBAT3 8- ♦ LOOP ; 

•BAT CR FILE* ' Ft 3 . - FPTR*-' FPTR 3 . BCT= • 
BCT 3 . BATJUF BATSIZE DUh? FREECKT . free bits' CR 

LINKS CR FPTR a BEGIN DU? 4 U.R nBATS DUP -1 * UNTIL DR9P 
CR ; 
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OPEN? aborts if a file is already open. 
-OPEN? aborts if a file is not open. 

'LATEST returns a pointer to the «ost recently accessed block t. 
LATEST returns the cost recent block nueber (without update bit) 
FLAGGED tests the update bit of LATEST. 

?BRV returns true if the block belongs to drive 6. 

FUF3ATE is used in place of UPDATE when writing to- a file. It 

allocates a new block to the end of the file if the written 

block is not already part of the file. 
rBLGCK reads the nth block relative to the beginning of the 

current file. 

FBLOGK is used in place of BLOCK to access a file block. 



\ File Syste* - File Block Accessing 
OPEN? Fl 3 1+ 6> ABORT" file is open! 
-OPEN? Fl 9 6< ABORT' file not open!' 



HEX 



: 'LATEST ( 
: LATEST ( 
: 7FLABBED ( 
DECIMAL 
: ?BRV ( 
: FUPDATE ( 
: r BLOCK 
r.thBLK 
: FBLQCK 
IF 

. ELSE 



a 1 PREV OUP 9 ♦ 4 ♦ ; 
blkl ) 'LATEST 3 7FFF AND ; 
) 'LATEST a *m AKO IF R> DROP 



THEN 



t ) 
) 



( rblkf 
CBLOCK 
( rblkf 

rBLOCIC 
: DROP 



LATEST 328 < ; 
-OPEN? ?FLAS8ED 
- a 1 FPTR a 8= 



UPDATE 1 UPDATED ! 
ABORT" fptr*S- 



a ) -OPEK? 8 KAX DUP BCT a - B< 



FREEBLK DUP BCT a nALLOCATE 



DBLOCK DUP 1624 BLANK FUPDATE 



THEK 
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UNFILES is the nuaber of files supported by the directory size. 
ENTRYLEK Size of each directory entry., 
WSLEN Kutber of characters in the filenais. 
'DIR is the first disk block of the directory. 



Updated at FCLOSE. 
Use BAT to find the rest. 



ISLKS contains the file block count. 
BLK1 is the first block of the file. 
Creation date 
tiie 

Modification date 
tite 
File attributes 

'ENTRY returns the address of the directory entry for file n. 
IKITCI& initializes a directory. 



95 

0 \ File Systee - Directory Structure 

1 % CONSTANT KAXFILES 

2 32 CONSTANT EKTRYLEN 

3 11 CONSTANT NKLEN . 

4 1 CONSTANT 'DIR 

5 ( Offsets into directory entry ) 
C h 11 CONSTANT IBUCS 

- 7 13 CONSTANT BLKJ , 

8 15 CONSTANT CRDATE 

9 17 CONSTANT CRTIftE 
IB 19 CONSTANT HDATE 

11 21 CONSTANT NTIKE 

12 . 23 CONSTANT FTYPE 

13 : 'ENTRY ( fl — a I 

14 : 1NITDIR KAXFlLiS 8 
15 



EKTRYLEN 1B24 t/HOD 'DIR ♦ DBLOCK ♦ 
I 'ENTRY EKTRYLEN Z FILL UPDATE US3? 
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B \ Sanple Prep File Systea - Load Block 
Ft Current file nuaber; directory index for this file. 1 VARIABLE Fl -I Ft I 

fTTR first block of file. 2 VARIABLE BCT 

8CT Nuaber of blocks in file, 3 VARIABLE EOF 

EOF 8 * not end of file. 4 VARIABLE UPDATED \ * 

UPDATED Flag indicates Hhether file Has written to or not. 5 VARIABLE DETAILS 
DETAILS Controls directory printing: B*short 1-long fonat 6 VARIABLE LMKRR 
LOADERR Kot zero if a file Has not found when loading. 7 6 CONST AKT .'BAT 

'BAT is the block nueber containing the block allocation table. 8 328 CONSTANT HAXBLKS 
KAXBLKS Nuaber of blocks on disk that the file systea uses. 9 4 CONSTANT ISTBLK 
ISTBLK The first useable block on an eapty disk. 10 ISTBLK 2t CONSTANT RESERVED 

BAT3UE is the nuaber of bytes in the block allocation table. 11 KAXBLKS 2t CONSTANT BATSIZE 
BAIJUFis a buffer to hold the block allocation table when a 12 CREATE BATJOF BATSIZE ALLOT BAT Jiff 3B ERASE 
file is open, 13 bat BUF CONSTANT FPTR 

. 14 71 *P 104 *P THRU \ Load the rest of the file systea 
15 EXIT 
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03LOCK is used to read and nrite only tG drive 0. 
GETJAT reads the block allocation table fro* the disk. 

•«>'t.«ni m t tea kite i/ni iu mc uia*. 

nBAT? Returns the contents of the ith entry in BAT (a block.!). 

nBAT! Stores n into the ith entry of BAT. 

INITBAT creates an.eapty block allocation table on the disk. 

nthBLK returns the block t of the nth block of a file, or -U 
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9 \ File System - Block Allocation Table 

1 : DBLOCK { blkf — a) DUP B 32B WITHIN NOT ABORT* blk error* 

2 OFFSET 9 >R 9 OFFSET ! BLOCK R> OFFSET ! ; 
3 

4 : 6ETJAT ( - 1 'BAT DBLOCK RESERVED ♦ 

5 BATJUF RESERVED ♦ BATS I IE RESERVED - ROVE j 

6 : SAVEJAT ( - 1 BAT.BUF 'BAT DBLOCfl BATSIZE KGVE UPDATE j 

7 . 

8 : nBAT? ( i — blkt ) IX BAT.BUF ♦ a } 

9 : nBAT! I n i — ) IX BAT BUT + ! ' ; 

16 : INITBAT BAT.BUF BATSIZE ERASE ( BATJUF ISTBLK IX -I FILL ) 

11 SAVEJAT FLUSH ; 

12 C0OE nthBLK -112 NOV I POP - FPTR 8 KOV 1NZ IF 

13 BEBIK 8 2 CM? B= IF 11 SUB aSE 0 B ADD 1 BATJUF 4 8 

14 ADD B H NOV W ) 8 NOV 1 DEC THEN 8= UNTIL THEN 

15 8 PUSH NEXT 



VBLK? aborts if the block nuiber is invalid. 
FREEBLK finds the first unallocated block on the disk. It 
aborts if the disk is full. 



ENOBLK tarts the given block as the end of file block in the 
BAT. 

ALLOCATE adds the given block to the end of the current file. 



OFJILE determines if the given block is already part of the 
current file; returns true if so. 
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0 \ File Systea * Block Allocation 
1 

2 : VBLK? ( blkt) -1 KAXBLKS WITHIN NOT ABORT" bad blkf ; 

3 : FREEBLK ( — blkl ) -I HAXBLKS ISTBLK DO 

4 1 nBAT? 8 s IF DROP I LEAVE THEN LOOP 

5 DUP 8< ABORT" disk full' ; 

6 : PPTR I SNAP ?DUP IF € DO nBAT? LOOP THEN 5 

7 : nALLOCATE 

8 PPTR OOP nBAT? 3 PICK nBAT! nBAT! I BCT ♦! 

9 SAVE BAT ; ' 
IB : n DEALLOCATE 

11 PPTR DUP nBAT? DUP n8AT? ROT nBAT! 

12 8 SNAP nBAT! -I BCT ♦! SAVEJAT 5 

13 : OFJILE? ( blkl — t ) >R FPTR 9 BESIN DUP VBLK? 

14 DUP -I = OVER I s OR NOT KHILE nBAT? REPEAT R> = J 
15 



3^3 



42 



HINDOX stores the window parateters, clears the window, and 
places the cursor at it's upper left corner, 

80/ is the saae as above, but draws a bo: around the 
specified window and takes the window 2 characters ssaller 
in both height and. width. 

KGRK The work window is the full width screen between the 

status header and the senu bar. 
FULL uses the entire screen. 

SELECTION is the stall window on the right side used for 

selecting things. 
tflDEBIR is used for full directory listings. 
HELP SIZE is the h*lp window. 



8 \ Hindows - Hindowing 
1 

2 : VIKDOH « xl yl « h — I 

3 WEIGHT ! WIDTH i Yl ! Xi ! 8 8 (TAB) ; 
4 

5 : 83X C xl yl h h — I 

6 HINDQK DRAKBOX 8 8 (TA8I ; 

7 - 

8 \ Hindow Types: 

9 : KGRK 8 2 88 17 ; \ use all these as prefixez to 
16 : BK8 0 8 88 24 ; \ HIHDOX or BGX i.e: 

11 : SELECTION 67 2 13 17 j \ '8KB KIKDGT 

12 : HIDEDIR 14 2 66 17 ; 

13 : KELPSIZE 8 2 66 17 ; 

14 : ED1TIH8 6 2 67 17 ; 
IS 
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These constants contain the addresses of the non-windowing 
output routines. Used when disconnecting the windowing 
functions, or writing directly to the screen. 

ITYPE types chars to the un-windowsd screen. It duplicates 
the cede fwUTid lit scr 78 sf LcVcl 4 listing. 
( 1933 is address of (type) ) 



ITAB positions the cursor on the un-windowed screen. 

•EMIT prints a char to screen without using windows. 

ISPACE outputs a space directly to the screen, 

I SPACES sends n spaces. 

ICLIKE clears the given full screen line. 

IEXPECT expects n chars to addr and echoes to full screen. 



\ Windows - Full screen output 
'TYPE 9 CONSTANT [TYPE] 'EXPECT 9 CONSTANT [EXPECT] 
'PA6E 9 CONSTANT CPAGE3 'TAB 9 . CONSTANT CTABJ 
'CR 9 CONSTANT CCR3 
CODE 1TYFE (an — ) HEX 

8 POP PTP. U) POP 8 8 OR 8> IF 8 CTR U) MOV 



DECIMAL 

: ITAB 
IEHIT 
tSPACE 
ISPACES 
ICLIHE 



( - 
'< c 
(- 
( n 
( 1 



[TAB] .EXECUTE ; 
'S I ITYPE DRGP ; 
32 IEHIT ; . 
BEGIN ?AHY HHILE ITYPE REPEAT 
168 I 86 BLANKS ; 



9 
18 

11 : ISPACES ( n — ) 

12 : ICLIHE (1 — ) 

13 : IEXPECT (an — ) 'EXPECT 9 >R tEXPECTl 'EXPECT 
14 



EXPECT R> 'EXPECT ■ ; 
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8 \ Hindows - nindowing on / off 



KIKCu'tiQFF restores FORTH' s screen output routines. 
HIKBOiiOM connects FORTH to the window output 
HiHDOH? displays the current window parateters. 



legal Valve" 



HHDQHOFF ( — ) 

(TYPE! 'TYPE ! tCRJ 'CR ! (TAB) 'TAB ! (PAGES 'PA8E 
(EXPECT! 'EXPECT ! ; 



HIWJQKON ( — ) 
('] (TYPE) 'TYPE \ 
CI (PAGE) 'PAGE ! 



C'l (CR) 'CR ! C'J (TAB) 'TAB ! 
VI (EXPECT) 'EXPECT ! ; 



18 : HINDOM? ( — ) 

11 CR .* XI, Yl: ' X19 . SPACE Y19 . CR MIDTH: 

12 KIDTK9 . CR HEIGHT: • HEI6HT9 . CR ; 
13 

14 
15 



360 



39 



0 275 826 



8 \ Windows - expect 

•expect' is an exact copy fro* screen 83 of level 4 listing. ' 1 CODE expect In-nnnl ASSEMBLER 32 I H KOV 

It has to be defined here because the original is headerless, 2 I I SUB 12 HOV 8 POP 12 IB 0 CMP 8= IF , 

and can't be found by WORD, (note the vert, bar in front of 3 CHT U) DEC 6 l< IF CUT U) INC B 

CODE e**ect in the source listino: it cosoiles a headerless 4 ELSE PTR 0) DEC CTR ItfOEC -2 I I KOV 

definition) 5 SKAP ELSE 2 IB 1 HOV 13 IB 8 CMP 8= HOT IF 

6 PTR U) W HOV 8< IF ( Fn) I 1 SUB 2 «B CNT U) ADD 

7 179V I 8 AOD 8 8 HI XCHS B STQS 32 I V KOV 

8 ELSE STOS B W PTR U) MOV X 8 XCHB 
? CNT U) INC B CTR U) IKC 8= IF 

18 SWAP TKEH SWAP THEN 2 CTR U) MOV 2 IKC 

U THEM THEM THEH 2 PUSH 1 SAR 1 PUSH V PUSH KEXT. 

12 

13 

14 

This is the title that is used for proorai listings. 15 \ Saeple Prep Ver 8.1 
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(CR1 Hioh level access to <cr). -Perforas carriage return. 

(TAB) flCYes the cursor position to specified line and colufin. 
Allows only valid Hind oh coordinates. 

!TY?E) Kes vector fcr 'TYPE.- 

(PAGE) vector for 'PAGE. Clears window, hoies cursor. 

(EXPECT) is called froa EXPECT in FORTH to get n chars and put 
thei to an address. PTR, CTR, CNT are setup by EXPECT and 
used by "expect 1 ,- Advances cursor position. 



V Windows - Screen output for FORTH 
CODE (CR) ( — ) ' (cr) CALL NEXT 

: (TAB) ( 1 c — I 

8 MAX WIDTH? 1- HIM XIS ♦ C.COL ! 

8 MAX HEIGHTS HiN YIS ♦ CROW ! 

: (TYP.El PAUSE (type) ; 



e 

1 

2 
3 
4 
5 
6 
7 

6 : (PAGE) ( — ) CLS .8 8 (TAB) 

? 
18 
11 
12 
13 
14 
15 



: (EXPECT) BEGIN 95 eeit (KEY) 
expect eiit ^CURSOR UKTIL ; 
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These constants define the IBM characters for drawing boxes. 



KULIKE draws a horizontal line the width of the window. 
WS1DES draws the left and right window border. 

4S10ES draws a box around the current screen window. 



DR^BOX clears the current window, draws a border around it, 
and puts the viewport just inside the border. 



8 \ Windows 

1 233 CONSTANT 

2 285 CONSTANT H2 

3 281 COHSTANT UL 

4 268 CONSTANT LL 
5 

HWLINE ( — ) 
NS10ES ( — > 

I 8 TAB VT EKIT 
LOOP ; 
; 4S1DES ( — ) 
8 8 TAB UL EMIT 



- Orawbox 

TO 202 CONSTANT BD 

186 CONSTANT VT 

187 CONSTANT UR 
163 CONSTANT LR 



\ us and down H's 
\ horz, Yert bars 
\ upper corners 
\ lower corners 



WIDTHS 2- 8 DO HI EMIT LOOP ; 
HEIGHTS 1 DO 

1 WIDTHS 1- TAB VT EMIT 



WSIDES 



KWLINE UR EMIT 
HEIGHTS 8 TAB LL EMIT HWLIKE LR EMIT 



DRAWBOX ( 



) 



as 4SI0ES 1 XI ♦! 1 Yl ♦! -2 WK1DTH +» -2 WEIGHT ♦! 5 
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<type) copies the string pointed to by PTR with length given by 
CTR to the screen window at the cursor position. The cursor 
coluan is advanced for each char, and ?CR will carriage return 
Hhen it points past right edge of window. 



CODE (type) " ( — 
I PUSH PTR U) 
DISPLAY LDA 8 

» ?CR CALL 
LOOP 8 IS SSB 



« \ Windows - ttype) 
1 
2 
3 
4 
5 
6 
7 
G 
9 
10 
11 
12 
13 
14 
15 



1 H PUSH * . 

I KOV CTR U) 1 HOV * '.cursor CALL 
ESLSB ATTRIBUTE LB A BE61K 
LOOS B STOS C.CDL 1KC 
is ES LS6 I POP « POP REIT 
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e«t puts char fro* stack on screen at cursor. 



UKftSR returns the absolute screen address of the specified 
window line. 

BLIHE blanks the specified window line. \ 



as blanks the current window. 



0 \ windows - eiit 
1 
2 



-> 
4 
5 
6 
7 
6 
7 

18 
11 
12 
13 
14 
15 



CODE eiit ( c — 1 

' 'cursor CALL DISPLAY LDA 8 ES LSS 8 PO? 
ATTRIBUTE 0 OR ' ?CR CALL STOS 8 IS SSS 
8 ES LSS KEXT 

: LIKADR ( 1 — a J 

Ytf + 68 t Xli . * 2t ; 
: ELIKE ( 1 — ) 

LINAOR WIDTHS BLANKS ; 

: CLS ( — ) 

HEIGHTS 1+8 DO I BfcIKE LOOP ; 
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CQLUKN returns the window coluan of the cursor. (8.. width) . 

♦CURSOR toves the cursor by signed aiount. If in coluin 8, 
and the tove is negative, it backs up one line. 



1 

-2 : 
3 

4 : 

5 

& 

7 

8 

? 
IB 
11 
12 
13 
14 
15 



\ Windows - cursor wvesest 

CQLUKN ( — col) C.COL 9 113 - ; 

♦CURSOR ( n — 1 
DUP B< C0LUHK 8= AKD IF 

-I C ROK ♦! Xtt H10TH3 ♦ CJttl i 
THEH C.COL*! ; 
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II is the coluin offset to the left window edge (8..n). 
ri is the nutber of lines down frot the top (B.,n). 
««IDTH ccntains the t of chars across the window. U..79) 
WEIGHT is the height of the window in lines' 18.. 24) 
C.ROU is the absolute screen line I of the cursor. 
C_CQL is the absolute screen coluin of the cursor. 

CRTSEG is the screen ie*ory segtent address (88333) 

REVERSE cakes subsequent screen output reverse video, 
HQRrlAL restores output to noraal video. 



9 \ Kindows - Saiple Prep Windowing for IBM ionochroee screen 
1 \ Current window jar aieters 



2 VARIA8LE II 

3 VARIABLE Yl : 

4 VARIABLE WIDTH : 
Z VARIABLE HHEISHT : 

6 VARIABLE C ROW 

7 VARIABLE C COL 
8 

9 11 ( BBH) CONSTANT CRTSEG 
IB 

11 HEX : UNDERLINE 

12 : INVERSE 

13 : NORMAL 



119 II 9 ; 
Y19 Yl 9 ; 
■WTO WIDTH 9 
HEIGHT9 WEIGHT 9 



14 34 *P <4 tp THRU 
15 



188 ATTRIBUTE ! 
7883 ATTRIBUTE ! 
78C ATTRIBUTE ! 



\ Load the rest of windows 



DEC I HAL 
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scroll scrolls the current screen windoH contents up one line. 



Windows • Screen scrolling 



8 
1 

2 CODE scroll ( — I 
i PUSH WIDTH 3 



*} 
4 
5 
6 
7 
8 
? 
18 



I PUSH 
ttOV Yl 



8 MOV 88 I W KOV K HUL 
KKEI6KT 2 HI KOV B 
8 ES LSS 8 POP EfESIN 
ADD 8 I KOV I FISH 3 i HOV 
1 IB 2 ADD MB 2 HI SUB 



8 IB 2 KOV 
8 DS LS6 



II 8 ADD 8 8 ADD 
6 PUSH DISPLAY LDA 

9 V KOV 168 I 6 

REP MVS 8 POP 
8= UNTIL 3 POP 8 IS SSS 8 DS LSS 8 ES LSB 
I POP RET 



'cursor returns the screen address of the cursor in register It. ll CODE 'cursor ( — ) 
Hultiplies cursor row by 80, adds coluin, and wltiplies by 2. 12 8 PUSH 63 I N HOV 

13 6 8 ADD 8 W KOV 



'CURSOR is high level access to 'cursor. 



C.ROK LDA 
8 POP RET 



K KUL C,C0L 8 ADD 



14 

15 CODE 



'CURSOR < — n ) ' 'cursor CALL « PUSH NEIT 
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clear -rases screen assory pointed to by X with count in 
reg, 1 

3LAKK3 takes a count and screen address and blanks n chars. 

(crl puts cursor in coluin 8 of the viewport window, and 
advances the cursor line I. If line f is beyond bottoi of 
the window, it scrolls window contents up 1 line and puts 
cursor on last line- Returns cursor address in «. 

?CR Tests cursor coluin position. If off right edge of window, 
it does a carriage return. M is preserved for (type)* 



8 V Windows 

1 CODE clear 

2 REP STOS 

3 CODE BLANKS 
4 

5 CODE <cr) ( 

6 XI B KOV 

7. 



- Carriage return 
HERE DISPLAY LDA 8 ES LSS 
8 IS SSS 8 ES LSG RET 



ATTRIBUTE LDA 



( a n — 1 1 POP H POP ( clear) CALL NEIT 



) 



9 C.COL HOV 
CJUHf 8 CMP 8< IF 6 
8 IF ' scroll CALL THEN THEN 
? WIDTH 1 KOV f clear CALL 
18 CODE ?CR ( — ) 

n 

12 
13 
14 
IS 



C.ROW INC Yl 8 KOV 
C.ROKKOV KHEIGHT 8 HOV - 
' 'cursor CALL V PUSH 
WPOP RET 



HHEIGHT 8 ADD 
OR*B> 



C PUSH U LDA WWIDTH 8 ADD a DEC C COL 8 CKP 
«< IF I PUSH 2 PUSH I PUSH ES PUSHS DS PUSHS 
IS PUSHS ■ (cr) CALL IS POPS OS POPS ES POPS 
I POP 2 POP 1 POP 
T1CH 8 POP RET 



4-06 
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Initialization, rain Entry Point 



)LOMER converts any alpha key to lowercase for coiparison with* 

the function coiiand characters. 
PREP is the fain entry point for the Saaple Prep Systei. 

It perform any retired initialization and then interprets 

single letter coasands fro* the keyboard. 



8 \ Saaple Prep 

1 HEX 

2 : >LO«ER ( C — c) 
DECIMAL ' 
: PREP- i — ) 

6 DRIVE BK6 KiNDGX 
.FRAJ1E V] 5TAT.SCR 
* t'! FKEYS1 'FKEYS ! 
WORK KIN5Q* (PAGE) 
CONTROL STSTER PSTATUS RUNNING 
0 'SCREEN ! STAT-OFF STATJCR 
BEG IK 



OUP 41 SB MITHIH IF 26 OR THEN 



KIHDQWON 
'SCREEH 



BE3IH CTL MSB? HEKSTATE? BKEY? UNTIL 



KEY -FUNCTION? ?0U? 
IF >LCHER CKAR>FN 
AGAIN : 



THEN 
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-FUNCTION? checks a keyboard character to see if it is a 
function key, executing, it's routine if it is defined. - 
Returns a false if it was. a valid function, true tor the* 
character) otherwise. 



I 

3 
4 
5 

7 
8 
9 

ia 
is 

12 
13 
14 
15 



\ Function key execution 
HEX 

VARIABLE 'FKEYS 
: KEYLOAO ( a —J 

19 C GG I 88 + OVER KEYS + 
3A KEYLOAO 8D KEYLOAO 99 KEYS C! 
FORGET KEYLOAO 
: -FUNCTION? ( c — c ! 0) 
. DUP D F KITHIN IF 80 ♦ THEN 
OUP 80 9C WITHIN 

IF 32 - 2t 'FKEYS 9 ♦ i ?DUP 
IF EXECUTE 8 ELSE 1 
THEN THEN ; 
DECIMAL 



I ♦ C! LOOP DROP ; 
9? KEYS 53 ♦ C! ( escM?) 



410 39 



B 

1 

2 : CTLJSS? i - ) 

3 FROh* CCNTROL C3 

4 IF FROtKONTRGL 6ETJ1S6 

5 DROP -flS6 

6 THEN ; 
7 

e 

9 
1C 
11 
12 
13 
14 
15 
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' • e \ Function Keys - Load Block 
1 

PEXIT stops the other tasks, cleans up, and exits back to FORTH 2 : PEXIT 
It should proept the user before exiting. 3 V Exit Systei? (Y/N)* YES? 

4 IF NORKAL SUH2080FF PA6E 

5 CONTROL HALT PAUSE 

6 PSTATU3 HALT PAUSE 

7 QU11- 

8 THEM 5 
9 

18 83 LOAD 
li EXIT 
12 
13 

• 14 
15 



4G3 
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4 

5 
6 
7 
8 
9 
18 
11 
12 
13 
14 
IS 
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FKEYS is the function key execution table used by the «in 
satple prep routine. Defined function keys have routines 
defined in this table. 



8 

1 
2 

3 
4 

c 
J 

6 
7 
8 
9 
18 
11 
12 
13 
14 
15 



\ Function Keys - Saeple Prep function key table 



CREATE FKEYS 1 
( 68) ' ST/STP 



( 84) 
( 88) 
( 8C) 
( 98) 
t 94) 
< 96) 



8 
1 

8 

-FUKC 
8 
8 



PS/CHT , 


• CRD 


i 


' PEXIT 


. * j 


8 


i 


8 


6 , 


• 8 


i 


6 




8 


! 


• DESELECT 


S i 


■ +FUKC 


f 


1 SELECT 


8 


8 


1 


6 


DESELECT , 


• SELECT 


1 


• SNAPSHOT 
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Read the year and set the FORTH svstea year.. 
Read the tiae and set FORTH's dock. 

The MOUTHS array is used to convert the current day and tooth 
into FORTH' 5 internal date foraat. Refer to screens 38 'and 
31 in the Level 3 listing, 

SETDATE oets the current day and aonth frot the battery dock 
on the AST card and sets FORTH 's date. 

Initialize FORTH' s day, date, and tiae froa the AST 

card clock. 
Saepie prep 



8 \ Clock - Set FORTH' S tiae and date 

1 

2 

3 : SETYEAR YR3 1933 ♦ A.O. ; \ ■ 

4 : SETTluE HR5 180 PUN* ♦ 9 PST ; 
5 

6 CREATE MONTHS 

7 B , 8 , 31 , 59 , 93 , 123 , 151 # 181 f 212 , 243 , 273 , 

8 384 , 334 , 367 , 
9 

13 : SETDATE OYJ K03 2t HOHTHS ♦ 3 58 OVER < LEAP 3 1 + . 

11 JAK0 3 ♦ ♦ NOH ; 

12 

13 SETYEAR SETT I HE SETDATE 

14 FORSET CLK3 
15 
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These definitions are for the AST ShPac Pius card with the 

Ricoh RP5C15 clock chip, 
CLK3 reads a value froa one of the AST card clock registers. 



sea* 



8 \ AST Card Clock Calender words - For RICOH RP5C15 chip 

1 \ ( for newer AST Six Pack Plus cards) 

2 HEX 

3 : CLK3 (a — n ) 2C3 OUTPUT 2C1 INPUT 8F AnD ; 



5 t SUA? 1- CLK3 * | 







4 DECIMAL 






• C«i 




5 : 2DGTS ( a 


— n ) 


uur lur.f 


Month 




6 : YR3 ( — 


yr 1 


12 2DGTS 


Cay 




7 : M03 ( — 


ao ) 


18 2S6TS 


Hour 




6 : DY3 ( — 


dy ) 


8 2D6TS 


Minute 




9 : HR3 ( — 


hr ) 


5 2DGTS 


Second froa the Battery clock. 




18 : KN3 ( — 


an ) 


3 2D6TS 






ii : sea ( — 


sc ) 


I 2DGTS 






12 EXIT 










13 










14 










15 
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\ AST Card Clock Calender nords - For Hatior.al RKS8167A chi 

\ (for older AST Six Pack Plus cards) 

HEX 

: CUC3 ( a — n 1 2C8 * IK?UT ; 
DECIMAL 

: CLVAL ( a — n) CLK3 OUP H 

: YR5 { ~ yr ) 18 CLK3 68 

: m ( — ao > 7 CLVAL 

: 0Y3 ( — dy ) & CLVAL 

J HR? ( — hr ) 4 CLVAL 

; MM ( — an ) 3 CLVAL 

: SC3 ( — sc ) 2 CLVAL 
EXIT 



/ 18 t SWAP 15 AMD ♦ 
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'QUIT is a user variable in each task that contains the address 8 

to execute when an error occurs. 1 

The error handler for each task should process the error if 2 

possible: saying state information for debugging (like SCR, 3 

)IN, etc}; and re-enter the eain task loop to allow recovery. 4 

This will prevent systsfi lockups on errors." 5 

Initialized to GulT lor now (nonal FGRTK systei error response) 6 

ERRORS is executed when ABORT is called. It gets the error 7 

routine address for this task and starts interpreting it. 8 

flodi fy the ABORT routine in FORTH to vector to ERRORS instead of 9 

QUIT. 10 

tmimmnnmmimmuuummmmmmmmutm a 

SYSTEM NOTE: II the FORTH systei is ever recospiled, the ABORT 12 

routine itself should be codified to ispUient the above 13 

behaviour. It is not good practice to poke in code chanoes 14 

after the syste± is up and running. ' 15 



\ Systei Error Handling 

• QUIT 'QUIT ! 

: QUITS 'QUIT J >R ? 

• QUITS ' ABORT 7 ♦ ! 



' (abort*) 
: ABORTS "ABORT 9EXECDTE ; 
9 ABORTS 2- ■ abort - 2* ! 

CODE RESET U R KOV \ dear the return stack 
S3 U) S ftOV \ clear paraieter stack 
8 0 SUB 8 PUSH \ put a safety 8 on stack 
NEXT 

\ copy of definition in screen 98 level 4 listing. 
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0 
S 
2 
3 
4 
5 
6 
7 
8 
? 

ie 
a 

12 
13 
14 
15 
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8 
1 
2 
3 
4 



6 
7 
8 
9 
18 
11 
12 
13 
14 
15 
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Jhese definitions are the saie as screen 77 in FORTH level 
3 listing, except that FUPDATE is used in place of UPDATE 
nhen writing to a disk file. 



0 \ File Editor - Line I character operations 

1 67 :K LHOLD CLAD 'LINE C/L WOVE ; 

2 : (DUPL) LINES ?DUP IF 0 DO 14 1 - MtOH LOOP THEN ; 

3 61 it IKSL (OUPL) LINE CLRL .BLCCK-j 

4 63 :K DUPL (DUPU .BLOCK"; 

5 64 :K SPLIT LINES IF (DUPL) -LINE CLAD C/L ♦ 

6 COL BLANK- LIKE +L , BLOCK Lt ! THEH ; 

7 62 :K a LHOLD LIKES 7J/UP IF 0 DO LIKE I ♦ I* KLIP LOOP 

8 THEK L/S LAO C/L BLANK .BLOCK ; 

9 e3 :K XC <A00R DUP DUP U SWAP COLS I- CKOVI 
SO BL SWAP COLS i- ♦ C! FUPDATE .LIKE ; 

11 : INSERT ( c) DUP EMIT NODE CJ IF COLS 1* IF <A0Dft DUP 

12 DUP 1* COLS 1- <CH0VE C! *C FUPDATE .LIKE ELSE <ADtt C! 

13 THEH ELSE <ADDR C! *C THEN FUPDATE ; 

14 : x DELETE -C 60 MODE W IF IC ELSE BL <ADDR C! FUPDATE 

15 SPACE THEK ; 
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EOL and PUT are the sase except for FUPDATE. 



G \ File Editor - Display function keys 

1 79 :IC EOL CLAD C/L -TRAILING DUP IF 1+ THEK 63 KIN Ct 



DROP ; 

: 7VIS1BLE ( c - c t) DUP 31 127 KITHIK ; 
63 :K PUT C/L 6 DO 'LIKE I « C3 7VISI3LE HOT IF 
2P.> 2DF^3P BELL EXIT THErt OS)? LOOP 
RODE C9 CUP IF (DUPL) THEK 'LIKE CLAD C/L CSQV'E FUPDATE 
IF .BLOCK ELSE 6 Ct ! SO. .LIKE THEK ; 



2 
3 
4 
5 
6 
7 
8 
9 

10 

II 

XDISPLY types the contents of the nth screen of the current file 12 : ID1SPLY ( serf) PAGE CFLISTI .NODE 

13 
14 
15 



.KOBE displays the current editing tode on the battel line" of 
editing window 



XEDIT is called when leaving the editor to dose the file, put 
the window back in order, and rebuild the current screen. 



.NODE 
ELSE 



17 38 TAB 
' Replace' 



NODE C9 IF 
THEK : 



Insert 



XEDIT FCLOSE 
•SCREENS 8 



XQRK HIHDOH 
'SCREEN ! EXECUTE 
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ESCape sets the exit flag so we'll leave the editor. 



(edit) is the editor coesand interpreting loop. It gets key 
strokes, updates the cursor position, and executes function 
keys until the exit flag is set 

>EDIT throws 2 return addresses away off the stack and reenters 
the editing loop. 



8 \ File Editor - Coenand Interpreter 

1 % : CASE ( n n - n 8, t) OVER - IF 8 &SE DROP 1 THEK 

2 : INSERTION ( c) 'VISIBLE IF INSERT 

3 ELSE 13 CASE IF ( Return) 8 CI ! *L 

4 ELSE 12 CASE IF 

5 ELSE 89 CASE IF 

6 ELSE 153 CASE IF 

7 ELSE 14 CASE IF 

8 THEN THEN THEN THEN THEN THEN ; 

9 : FKEY ( - k, k -I) KEY 'KEY W 53 > IF ( Function key) 

10 DROP 'KEY C9 -I THEN ; 

11 : (edit) ( blkl) . HOKE XDISPLY BEGIN 60 

12 ♦CURSOR "CURSOR DUP 1* IF INSERTION 

13 ELSE DROP FUNCTION THEN EDXIT 8 UNTIL ? 

14 CODE >ED1T * (edit) 2+ I I ttOV 4 I R ADD NEIT 
IS 



( Bksp) x DELETE 

( Tab) 4C *C *C 

i ESC) TRUE EDI IT 

( PrtSc) CHOICE 
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cant da an eapty-buffers without loosing directory and BAT 
iMorfiaUao too. Solution is to Copy the existing file 
to a 'mt.BAK* Hie, edit that one, and just delete it if 
the user wants to forget any changes. 

♦Q. (the plus function key) is supposed to flip between a screen 
and it's shadow or documentation block. In FORTH, the 
convention is to have docuosntation blocks a fixed offset 
above source blocks (typically 1 drive higher so that source 
and docuaentation are on seperate drives) ] Hoh should 
docuisfttation blocks be handled? Perhaps a different file type 12 
where the source code would be in •xyzabc.txf and it's shadow 13 
would be in •xyzabcdoc". This aeans we need eultiple open . 14 
files, which the file systea doesnt currently support. 15 



0 \ File Editor - Function keys 

1 ( Key 59) ' FLUSH 59 'FUNCTION ! 
2 

\ 66 :K RECALL OTTY-8UFFKS 8 pg .)EDIT 
73 :K UP 1 pg >£DIT ; 

81 :K OGKN -1 pg >EDIT ; 
\ 76 :K *Q . (81 >EDIT ; 

82 :K /XQDE • RODE B 8= RODE C! .KOOE : 



3 
4 

5 
6 
7 
8 

9 9 14 KEYS ♦ C! 
18 
U 



EEKEKU displays the editing couands in the selection window. 



FEDIT is the tain entry point to the editor. It trys to open 
an existing file and if it is not found, it prospts before 
creating a new file. 



9 
18 
11 
12 
13 
14 
15 



\ File Editor - tlenu Display, Entry point 
EDHEK'J ( - ) 
SSLECTIQR 801 (PAGE) 

COntmMDS: * 



8 

1 
2 
3 
4 
3 
6 
7 

6 : (FEDIT) STAT-OFF KENU-OFF 



Fi: FLUSH F2: RECALL F3: SPREAD • 
F4: DEL LIKF5: DUP LIKF6: SPLIT F7: 
F9: HOLD FIS: PUT ESC: EXIT '* 



DEL E0LF3: DEL EDS' 



FALSE EDIIT ! EDttEKU EDITING VINDOK 8 (edit) IEDIT ; 

FEDIT QFEK? f Enter Filenase: 1 FILEHAfct IF 1* Ob? FOPEK 
IF P Create a new file? (Y/M) - YES? KOT 
IF DROP EXIT THEN FCP.EATE IF 

f Create Error* .ERROR EXIT THEN 
ELSE DROP THEN (FEDIT) THEN : 
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1 
*% 

L 

3 
4 
5 
6 
7 
B 
9 
18 
11 
12 
13 
14 
15 



SET-KPK56 sets lethod lessee to the address of in line 
, * string. 

FfKSS iru function a~ S3d yc to the address of in line 
string, 

t BRKT-STR compiles a sharp brakst delisted «$tr.„» 
string froi the input streaa into the dictionary. 



B \ Prograitable tethod and function eessages - basics 

2 : SET-MPMSS ( - ) 

3 I ?R3 MPM5G ! ; 
4 

5 : SET-FPHSB ( - ) 

6 1 7RJ FPMS6 ! ; 
7 

B : BRKT-STR 

9 -1 >IH ♦! 63 VORD DROP 62 STRIH8 S 
IB 
11 

12 238 LOAD \ Message turnoff couands 

13 

14 

15 
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"SS'ul' 1655545 ar,d " Us il the «* -»■• « 

IESSA6E-0FF turns of! the othod 4555596, if Jny . 
FMES3AEE-DFF turns off the function eessage, if any. I 



238 

B \ Progreiiable eethod and function tessagss - top level 

2 : MESSAGE { - ) 

3 COMPILE SET-MPMSS BRKT-STR ; ' IMMEDIATE 

5 : MESSABE-OFF ( - J 

6 Q MPNSG ! ; 

B : FHESSASE ( - J 

* ? COMPILE SET-fPHSS BRKT-STR ; IMMEDIATE 
IB 

11 : FMESSAGE-OFF ( - ) 

12 8 FPMS6 ! ; 
13 

14 
15 
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RV-NAKE-TBL is a table of pointers to strings that contain 
the navies for the rotary vavle positions. 

CD -KANE- TBI is a table of pointers to strings that contain 
the nates for the contact device positions. 

T»ese load coaaands coapiU nen string and put their 
addresses in the given table. 



8 \ Systei configuration tables and load screen 
1 

2 241 LOAD \ String table generation «ords 
3 

4 CREATE RV-NAME-TBL 32 ALLOT « * 

5 CREATE CO-KAHE-TBL U ALLOT 
& 

7 RV-NAKE-TBL • 338 LOAD \ Rotary valve nates 

6 CO-HAfiE-TBL ' 3BI LOAD \ Contact device functions 1-12~ 

9 CB-NAME-TBL 48 ♦ 382 LOAD \ Contact device functions 13-24 

ie 

11 
12 



162 
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IS-PTR is a pointer to the location at which we coipile the 
string's address. It serves as an index into a table. 



0 \ Configuration tables - creating string tables 

1 VARIABLE IS-PTR 

2 VARIABLE IS-LEH 



IS-LEN is the required length of the strings that are being 


3 




cocpiled. 


4 : 


CONFIGURE 




c 
J 


IS-PTR ! ; 


"C0KFI5UHE and CHARACTER set IS-PTR and IS-LE8 ir, a clean 


i : 


CHARACTER 


syntax. See the Ust note in this block. 


7 


IS-LEN ! ; 


C3TRIN6 cosailes a string and places its address into a table, 


8 

9 : 


CSTRIHS 


advancing IS-PTR for the next string. 


IB 


-2 ALLOT -1 >IK ♦! 60 KORD DROP 




11 


HERE 2* IS-LEH ? BLANK 62 KORD 


STRINGS coipiles the required nmbar of strings. 


12 


IS-LEN 5 OVER C! IS-PTR 3 ! 2 IS-PTR ♦« 




13 


IS-LEH ? 1* 2+ ALLOT ; 


The syntax of usage is: CONFIGURE n t CHARACTER STRINGS. The 


14 : 


STRINGS 


adress of the table is given on the stack before starting. 


15 


Z 00 CSTRIHS LOOP ; 
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6 
I 
2 
3 
4 
5 
6 
7 
8 
9 
18 
11 
12 
13 
14 
15 



300 



8 \ Configuration screen for rotary valve naaes 
1 CONFIGURE 16 13 CHARACTER STRINGS 



i 



3 valve! i Port II u m p ort l2 



5 18 < F »H Sprayer > < t g KastB > 

J 2 I . < Solvent 12 ) ( To LC loop > 



9 

18 i Port 13 p Dr t m 
II J 



1 < Sample Line > < Sample Loop > 

I ! < LC B yP"s > < solvent II > 

" 3 : < > / 

« 4 ! < > 



> 

< > 
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8 \ Configuration screen for contact 
1 CONFIGURE 24 28 CHARACTER STRINGS 



2 cdl 



j 
6 
7 
8 
9 

10 

ii 

12 
13 
14 
15 



1 
2 
3 
4 

r . 
J 

6 

7 ; 

8 i 

9 I 
18 ! 

u : 

12 J 



QF function 



<l:Saaple Loop Bypass) 
<2:Saapie Loop Bypass) 
<3: Manifold - Cup > 
<4: Puap - Hanifoid > 

< > 
<6: Fill Gas Reserve > 
<7:Pressurize Sprayer) 

< > 

< > 

< ) 
01: Vent Cup > 

< s 



device functions i thru 12 
ON function 



<i: 
<2: 
<3: 
<4 

< 

<6:Eipty Gas Reserve 



Saspie Loop 
Saiple Loop 
Cup Tg Haste 
Gas To Manifold 



<7: 
< 
< 
< 

<li: 



Spray 



Pressurize Cup 



623 

30: 



? LSL'J!™ 11 " scre * n for contact d6Yi « Unctions 13 thru 24 

1 CONFIGURE 24 28 CHARACTER STRINGS 

2 cdl ! OFF function oh function 



4 13 ! 

5 14 ! 

6 is : 

7 16 \ 

8 17 : 

9 18 S 
18 19 I 

u 28 : 

12 21 : 

13 22 ! 

14 23 ! 

15 24 ! 



< 




) 


< 




< 




> 


< 




< 




) 


< 




< 




> 


<16:LC Fill Position > 


< 




> 


<17: 


LC Inject > 


< 




) 


< 




< 




> 


< 




< 




> 


< 




< 




> 


< 




< 


OFF 


> 


< 


ON > 


< 


OFF 


> 


< 


ON > 


< 


OFF 


) 


< 


ON > 




4 nwnwwTinwwiwwi^^wwwi^wnwm^ 

9 
12 

13 ™ 
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0 «« HELP FOR STATUS SCREEN »» 

i 

2 This is the Systei Status Screen. The display shews the 

3 current state of each systei element. 
t 

5 Fi is the Start/Stop key. Use it to control setfcod operation. 

6 F2 is the Pause/Continue key. Use it to suspend a run- 

7 F3 allcHS a direct coseand to be entered (for debugging only), 
e FA allows exiting back to the FORTH systet. 

9 KUK LOCK causes the current screen display to be copied to the 
18 printer. 

11 <- -> Keys tove the coteand selector across the aenu. 

12 ♦ Causes the currently selected coesand to be executed 

13 - or ESC Exits the current Screen. 

14 Type the first character of the costand naae to execute it 

15 C Kit Any Key to Exit the Kelp Screens ] 
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1 This is second status help screen. 




2 




3 




4 




5 




6 




7 




8 


* 


9 




18 




11 




12 




13 




14 


s 


15 





s 

1 This is third status help screen. 

3 

4 

5 

6 

7 

8 

9 
IB 
11 
12 
13 
14 
15 
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1 This is fourth status help screen. 
2 



3 
4 

5 
& 
7 
8 
9 

ie 

n 

12 
13 
14 
15 
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8 «« HELP FOR FILER SCREEN »» 



I uVJ l Vr™ [ **\ 50M UtUity C0Mands < or ""'Putins disk 
4 cant £H£ ^ deUt6d " • - * - -« 

I « £?Z li5tin 2 of the di5k is di5pla ^ lf th ^ « 

7 H\£ be Sb0Mn ° n the SCreen at one tUe > can 

7 use the page up or page down keys to see thet. 

8 



9 
10 

11 
12 
13 
14 



15 C Hit Any Key to Exit the Help Screens 3 



0 

1 

2 
3 
4 
5 
6 
7 
8 
9 

m 

n 

12 
13 
14 
15 
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1 

2 

3 

4 

5 

t> 

7 

8 

9 
IB 
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8 «« HELP FOR PRINTER SCP.SEH »» 

1 

2 The printer utility allows files and disk directories to be 

3 sent to the printer. 
4 

5 

6 

7 

8 

7 
18 
11 
12 
13 
H 

15 E Hit Any Key to Exit tbe Help Screens 3 



